Zeit messen zwischen zwei Nachrichten

[Tyrael Y.]

Ich möchte gerne die Zeit in Millisekunden zwischen zwei WM_SIZE
Nachrichten feststellen.

Wie mache ich das am geschicktesten?

Danke und Gruß

[choose]

Aus dem PSDK

Zitat von PSDK:

The GetTickCount function retrieves the number of milliseconds that have elapsed since Windows was started.

Es gilt weiterhin: Die Zeit dt zwischen dem ersten Zeitpunkt t1 und dem späteren t2 beträgt genau dt=t2-t1.

[oki]

Hi,

fange die Botschaften ab, und messe die Zeit mit "TickCount". Zum Thema TickCount gibt es hier schon einige Beiträge. Damit müßtest du gut klar kommen.

Gruß oki

[toms]

oder besser mit TimeGetTime:

Delphi-Quellcode:

private
    procedure WMSize(var M : TWMSIZE);Message WM_Size;

{....}

uses
  MMSystem;

procedure TForm1.WMSize(var M:TWMSIZE);
{$j+}
const
 t1 : Integer = 0;
{$j-}
begin
  if t1 = 0 then
  begin
    t1 := TimeGetTime;
  end else
  begin
    Caption := IntToStr(TimeGetTime - t1) + ' ms';
    t1 := 0;
  end;
end;

[Tyrael Y.]

@toms
was soll TWMSIZE für eine Klasse sein ?

@all
wie messe ich jetzt denn die Zeit zwischen den Ereignissen?

mit GetMessages?

[toms]

Delphi-Quellcode:

  TWMSize = packed record
    Msg: Cardinal;
    SizeType: Longint; { SIZE_MAXIMIZED, SIZE_MINIMIZED, SIZE_RESTORED,
                         SIZE_MAXHIDE, SIZE_MAXSHOW }
    Width: Word;
    Height: Word;
    Result: Longint;
  end;

[choose]

Das ist ein Record, der den Zugriff auf die Attribute der Nachricht WM_SIZE vereinfacht. Er ist wie viele andere Hilfstypen in der Unit Messages definiert.

TIPP: Mit <Strg>+<L Maus> auf einen Typen springst Du zu dessen definition, mit Klick auf eine Variable zu deren deklaration.

[toms]

Zitat:

wie messe ich jetzt denn die Zeit zwischen den Ereignissen?

Habe doch schon einen Code gepostet, dort wird's gezeigt wie.

[choose]

Zitat von Tyrael Y.:

wie messe ich jetzt denn die Zeit zwischen den Ereignissen?

siehe toms oder mein erstes Posting.

[Tyrael Y.]

hm,
sry aber versteh ich nicht ganz, woher bekomme
ich denn M ?

(var M:TWMSIZE)