Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TigerLilly,
11. Jan 2020
:- ) Jetzt tut das so, wie ich will - danke für alle Hinweise.
Im Formular im FormCreate, um das UI zu aktualisieren:
MessageManager := TMessageManager.DefaultManager;
SubscriptionId := MessageManager.SubscribeToMessage(TMessage<UnicodeString>,
procedure(const Sender: TObject; const M: TMessage)
begin
lblStatus.Text := (M as TMessage<UnicodeString>).Value;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TigerLilly,
11. Jan 2020
Ja, das stimmt, das hab ich übersehen. Danke dafür.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TigerLilly,
10. Jan 2020
Das heisst, das Problem ist, dass ich hier auch auf Messages reagiere, die gar nicht von mit selber komen?
Ich müsste also TMessage<TnurVonMirString> registrieren und alles ist gut?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TigerLilly,
9. Jan 2020
Ich habe in meinem Formular dieses, um Messages zu empfangen + als Status ausgeben zu können:
MessageManager := TMessageManager.DefaultManager;
SubscriptionId := MessageManager.SubscribeToMessage(TMessage<UnicodeString>,
procedure(const Sender: TObject; const M: TMessage)
begin
lblStatus.Text := (M as TMessage<UnicodeString>).Value;
end);