Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.060 Beiträge
 
Delphi 10.4 Sydney
 
#40

AW: Form in neuem Thread laufen lassen

  Alt 24. Apr 2017, 13:01
Ganz fein wären Thread-Showmessages, und dann sogar zwei Arten davon: Ein blockierendes und ein nichtblockierendes. Input- und Messageboxen wären auch nicht schlecht. Aber ich bin ein wenig unverschämt, ich weiß...es sind nur Anregungen, die aufzeigen, auf was für Fensterfunktionalität - neben den "normalen" Formularen - in Threads (bisher?) so alles verzichtet werden muß.
Delphi-Quellcode:
procedure ShowMessageThreaded(const Msg: string; const TitleCaption: string = '');
begin
  TThread.CreateAnonymousThread(
    procedure
    begin
      Winapi.Windows.MessageBox(0, PChar(Msg), PChar(TitleCaption), 0);
    end
    ).Start;
end;


procedure TForm2.FormCreate(Sender: TObject);
begin
  ShowMessageThreaded('Hello');
end;
Ist doch total simpel?
Einfach im Thread die entsprechend gewünschten Windowsfunktionen aufrufen?
  Mit Zitat antworten Zitat