Forum: Object-Pascal / Delphi-Language
Delphi
by TiGü,
2. Mär 2021
procedure TTMainForm.Button1Click(Sender: TObject);
var
Msg: TOpenChildFormMessage;
begin
Msg := TOpenChildFormMessage.Create;
Msg.ParameterIN := 'Ich komme aus MainForm und gebe dies als Parameter mit';
TMessageManager.DefaultManager.SendMessage(Self, Msg, False); // das False ist wichtig!
ShowMessage(Msg.ParameterOut);
Msg.Free;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by TiGü,
2. Mär 2021
Siehe Anhang. Ein skizzenhaftes Beispiel, ist natürlich verbesserungswürdig.