Hilfe application.ProcessMessages bei Win 10

[Fukiszo]

abgesehen davon das man es wie bereits erwähnt davon abuzraten ist,
versuche ein Sleep(20); in deine repeat schleife zu setzten damit die cpu nicht auf 100% läuft.

alternativ evtl so: (nicht den sleep vergessen!)
(ich weiß nicht ob's ne verbesserung oder verschlechterung zu deinem delphi ist!)

Code:

function MyProcessMessages : Boolean;
const
 WM_QUIT  = $0012;
var
 Msg : TMsg;
begin
 Result := False;
 while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin
  if Msg.Message = WM_QUIT then
  begin Exit end else begin
   TranslateMessage(Msg);
   DispatchMessage(Msg);
  end;
 end; Result := True;
end;

[Luckie]

Warum das nachbauen was Application.ProcessMessages selbst schon macht, nämlich die anstehenden Nachrichten abarbeiten?

[Fukiszo]

Dann lösch meinen Beitrag einen Hilfesuchenden zu Helfen. Geht schneller als Nachzufragen und man vom Thema abkommt.

[himitsu]

Zitat:

versuche ein Sleep(20); in deine repeat schleife zu setzten damit die cpu nicht auf 100% läuft.

Delay http://www.delphipraxis.net/6620-delay.html

Aber es macht auch keinen Sinn, den einmaligen Durchlauf noch künstlich mit einem Sleep/Delay zu verlängern.
Wenn wirklich viel zu tun ist, dann darf das Programm gern mal mit 100% laufen.

Aber wie die Messages behandelt werden ist letztendlich egal, wenn die Position wohl eher das Problem ist.

Zitat:

Im OnShow ist das ungünstig plaziert.

[Fukiszo]

Aber er wollte doch ein Einfrieren verhindern, weswegen ich Sleep() vorschlug. (nicht auf 100%)
Ja kann sein das es Delay() bei ihm heißen mag.
Da ich fast alle funktionen selbst bereitstelle kenn ich mich nicht zu 100% aus was wo tatsächlich existiert.

procedure Sleep(dwMilliseconds: DWORD); stdcall;
procedure Sleep; external kernel32 name 'Sleep';

Da hol ich mir mein Sleep() her, Delphi unabhängig. Ruft Delphi Version XYZ das gleiche auf? Ich weiß es nicht.

[uligerhardt]

Das hängt doch alles davon ab, was das "tue irgendwas" im ersten Post eigentlich ist. Da wäre Input vom OP hilfreich.

[himitsu]

Zitat von Fukiszo:

Aber er wollte doch ein Einfrieren verhindern, weswegen ich Sleep() vorschlug. (nicht auf 100%)

Aber Sleep ist doch grade ein Befehl, mit dem Man das Programm absichtlich "einfriert.

Delay ist eine "eigene" Implementation, die Delphi nicht kennt.
Es verbindet Sleep mit einem Application.ProgressMessages, bzw. PeekMessage+DispatchMessage, damit der Code wartet, aber währenddessen dennoch Messages verarbeitet werden können.

[Fukiszo]

himitsu verstehe mich bitte nicht falsch.

repeat
processmessages;
until irgendwas:

egibt das das formular einfriert, richtig?

repeat
sleep(20);
processmessages;
until irgendwas:

egibt das das formular noch reagieren kann, zum beispiel ein "Abbruch" Knopf betätigen, richtig?

ich schau mir mal dein delay link an.

grüße

[EWeiss]

Zitat:

repeat
processmessages;
until irgendwas:

egibt das das formular einfriert, richtig?

also das friert nie ein.

Delphi-Quellcode:

procedure WinProcessMessages;
var
  ProcMsg: TMsg;
begin
  while PeekMessage(ProcMsg, 0, 0, 0, PM_REMOVE) do
  begin
    if (ProcMsg.message = WM_QUIT) then
      Exit;
    TranslateMessage(ProcMsg);
    DispatchMessage(ProcMsg);
  end;
end;

Delphi-Quellcode:

repeat
WinProcessMessages;
until irgendwas;

sollte mich auch wundern..
Mit Sleep bremst du die anderen Messagen nur aus.
Warum das bei W10 Probleme machen kann? Keine Ahnung.

Zitat:

Im OnShow ist das ungünstig plaziert.

Dito und das wird auch sein Problem sein.

gruss

[himitsu]

Zitat von Fukiszo:

egibt das das formular einfriert, richtig?

Das nicht, aber das Sleep friert immer wieder kurz alles ein und sorgt auch dafür, dass "tu was" länger braucht.

Eine reine Warteschleife, die nur Messages verarbeitet, die garf gern kurz einfrieren, wenn gerade keine Messages vorhanden sind.
Gerade das wurde in dem Delay von Hagen optimiert, also statt einen Sleep wird dort mit WaitFor auf den Timeout gewartet oder bis eine Message ansteht.