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;
Bin um jeden Tip dankbar
