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:

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 :wink:

[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]

:wiejetzt:
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