Forum: Programmieren allgemein
by TiGü,
12. Mai 2016
Na, ganz normal:
var
MyContainer: TMyMessageContainer;
begin
MyContainer := TMyMessageContainer.Create;
MyContainer.Text := 'hallo';
...
MyContainer.Free;
Forum: Programmieren allgemein
by TiGü,
12. Mai 2016
Du kannst auch sowas machen:
TMyMessageContainer = class
public
Text: string;
Number: Integer;
end;
TMyGenericMessage = System.Messaging.TMessage<TMyMessageContainer>;
Forum: Programmieren allgemein
by TiGü,
12. Mai 2016
@Uwe:
Das kompiliert bei mir aber nur, wenn ich den Self.SendMessage Aufruf in einer procedure verbastle:
procedure TMessageManagerHelper.SendMessageAsynch(const Sender: TObject; AMessage: TMessage; ADelayMS: Cardinal; ADispose: Boolean);
begin
TTask.Run(
procedure
begin
if ADelayMS > 0 then