hy there,
ich habe ein
nonvcl programm in dem eine suchfunktion etwas länger dauert nun wollte ich das er in der zeit die nachrichtenschleife aufrecht erhält!!
ich hab es mit
Delphi-Quellcode:
procedure ProcessMessages;
// hält die Nachrichtenschleife in Gang
var
Msg: TMsg;
begin
if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
probiert nur leider beendet er dort mein programm nicht wirklich mehr mit, nimmt zwar noch eingaben entgegen, aber wird nicht wirklich geschlossen. nur das fenster verschwindet optisch..
gibt es da eine besser möglich keit die schleife aufrecht zu erhalten???
danke schon mal im vorraus