nonvcl Endlosschleife ohne uses Forms

[gandime]

Hi,
wie kann ich mit nonvcl eine Endlosschleife ohne application.processmessages, welches ja aus uses Forms?
Die Schleife sollte aber Reagieren, damit die Timer noch funktionieren

mfg
gandime

[sirius]

Das ist deine Schleife:

Delphi-Quellcode:

while getmessage(msg,0,0,) do
begin
  translatemessage(msg);
  dispatchmessage(msg);
end;

Wenn du an dich selber ein Postquitmessge schickst wird diese Schleife beendet.

[jfheins]

Ich glaube, er meinte wie er in einem nonVCL Programm eine Schleife machen kann, ohne dass seine Anwendung einfriert ... also quasi ein nonVCL Gegenstück von Application.ProcessMessages

Ich meine, das habe ich mal in einer Demo von Luckie oder so gesehn ...

[turboPASCAL]

Das geht so:

Delphi-Quellcode:

procedure ProgressMessages;
var msg: TMsg;
begin
  if PeekMessage(Msg, 0, 0, 0, pm_Remove) then
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

//..
procedure ...
begin
  for x := ... to y do
  begin
    // to do....
    ProgressMessages;
  end;
end;

//...

[sirius]

Zitat von jfheins:

Ich glaube, er meinte wie er in einem nonVCL Programm eine Schleife machen kann, ohne dass seine Anwendung einfriert ... also quasi ein nonVCL Gegenstück von Application.ProcessMessages

Ich meine, das habe ich mal in einer Demo von Luckie oder so gesehn ...

Achja, dafür nimmt man natürlich peekmessage statt getmessage, aber das hat ja TP schon geschrieben

[gandime]

genau das wollte ich: PeekMessage(Msg, 0, 0, 0, pm_Remove)

danke an alle

[gandime]

blos wie mache ich das jetzt das nicht 100%cpu auslastung entsteht, möglichst ohne sleep?

[sirius]

Also möchtest du doch nicht ein "identischen Processmessages", sondern dein Programm soll auf eine Message warten (mit wenig CPU-Auslastung.
Dann nimmst du statt peekmessage -> getmessage.

[gandime]

hmm ok sry meine Schuld