Wie schnell reagiert Delphi

[taktaky]

Zitat von Muetze1:

Informier dich mal über die VCL Botschaften CM_MOUSEENTER und CM_MOUSELEAVE

sind die besser als der Code oben?

Allerdings habe ich den Code nun verbessert
Form2 wird angezeigt nur wenn der Cursor auf Panel kommt

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if  PtInRect(Rect(left+panel1.Left,top+panel1.Top,left+panel1.Left + panel1.Width, top+panel1.Top + panel1.Height),Mouse.CursorPos) then
    Form2.ShowModal();
end;

Ein kleines Problem: Form2 wird zwar angezeigt aber nur wenn der Cursor fast in der Mitte von dem Panel !