Ausgabe einer BildschirmMessage zeitbegrenzt

[Oovas]

Hallo,

bin neu hier, und komme gleich mit einer evtl. etwas seltsamen Frage:
Ich möchte in meinem Programm eine Bildschirmmeldung ausgeben.
Diese sollte nach dem Bestätigen des Benutzers (z.B. OK-Button) verschwinden.
Betätigt der Benutzer aber keinen OK-Butten, dann sollte das Fenster automatisch nach ca. 10 Sekunden verschwinden.

Dies ist mein letzere Versuch (siehe Unten).
Wobei hier das CloseHandle nicht funktioniert, und die Showmessage stehen bleibt......

Delphi-Quellcode:

...
 ThreadHandle2:=CreateThread(nil, 0, TFNThreadStartRoutine(@MeldungsAusgabe),nil, 0, ThreadID2);
 sleep(10000);
 CloseHandle(ThreadHandle2);
...

function MeldungsAusgabe(zahl: Pointer): LongInt; stdcall;
begin
  Showmessage('Meldungstext: '+ DateTimeToStr(Now));
end;

:gruebel:
Bin um jeden Tip dankbar
:mrgreen:

[nailor]

mit showmessage ist das nicht so gut. programmier dir ein eigenes fenster zur ausgabe und setz nen timer drauf, der es nach X sekunden schließt.

[Ultimator]

Oder du schaust dir mal diesen OpenSource-Beitrag von Luckie an

[Oovas]

Danke,
mit dem OpenSource von Luckie funktionierts!
:-)