Zeit messen zwischen zwei Nachrichten

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