Wie schnell reagiert Delphi

[turboPASCAL]

Zitat von taktaky:

Leider kann man keinen Timer auf Panel anlegen.

Och, der liegt doch da sehr gut.

Ein Timer ist eine nicht visuelle Komponente, du musst das schon im Quelltext regeln.

[DeddyH]

Versuch es mal so auf Form1:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if PtInRect(Rect(0,0,Panel1.Width,Panel1.Height),
              Panel1.ScreenToClient(Mouse.CursorPos)) and not Form2.Visible then
    Form2.Show;
end;

Du musst auch beachten, ob Form2 bereits sichtbar ist.

[taktaky]

Zitat von DeddyH:

Versuch es mal so auf Form1:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if PtInRect(Rect(0,0,Panel1.Width,Panel1.Height),
              Panel1.ScreenToClient(Mouse.CursorPos)) and not Form2.Visible then
    Form2.Show;
end;

Du musst auch beachten, ob Form2 bereits sichtbar ist.

Hallo,

Es geht weiter
Die Idee ist super. Das ist aber beim Schließen
Ich möchte auch das Form2 wieder anzeigen lassen möchte, nur wenn der Cursor auf Panel kommt
Aber natürlich ganz schnell, genau wie der Code Oben

Den Code oben kann ich nicht in Form1 anlegen, da ich das Form2 nur anzeigen lassen, wenn der Cursor auf Panel bewegt.
Kann man noch einen Timer auf Form1, der nur reagiert, wenn der Cursor auf Panel kommt?

[Muetze1]

Informier dich mal über die VCL Botschaften CM_MOUSEENTER und CM_MOUSELEAVE

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