Wie schnell reagiert Delphi

[taktaky]

Hallo,

was muss man tun, damit Delphi schnell reagiert ?
ich habe z.B. ein Panel1 erstellt, das auf MouseOver reagiert, leider wenn ich den Cursor darüber sehr schnell anfahre, dann passiert nichts, nur wenn ich den Cursor langsam bewege !!!

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
ShowMessage('ich habe dich erwischt');
end;

Delphi kann nie den Cursor erwischen !!!


____

[DeddyH]

Das ist kein Delphi- sondern ein Windows-Problem.

[malo]

Kann ich nicht nachvollziehen. Habs grad mit WinXP Pro und D5 Pro ausprobiert und ich kann gar nicht schnell genug mit dem Cursor über das Panel huschen, dass keine Meldung erscheint. Vielleicht ist deine CPU-Auslastung einfach ziemlich hoch?

[OregonGhost]

Wenn du den Cursor mal schnell bewegst, wirst du feststellen, dass er sich nicht flüssig von A nach B bewegt, sondern springt. Genauere Daten kommen nicht herein. Wenn dein Panel also genau zwischen zwei Mauspositionen liegt, bekommt es keine Meldung. Es gibt normalerweise auch keine Notwendigkeit, auf solche Bewegungen zu reagieren.

@malo, roter Kasten: Mach das Panel mal relativ klein, dann wirst du's schon sehen.

[taktaky]

Zitat:

Zitat von DeddyH

Das ist kein Delphi- sondern ein Windows-Problem.

Ok, und was kann man dafür machen?
Ich habe versucht mit einem Timer das Problem zu lösen, leider immer noch nicht geschaft

---

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not PtInRect(Rect(Left,Top,Left + Width, Top + Height),Mouse.CursorPos) then
    Close;
end;

So z.B.

[taktaky]

Zitat:

Zitat von malo

Kann ich nicht nachvollziehen. Habs grad mit WinXP Pro und D5 Pro ausprobiert und ich kann gar nicht schnell genug mit dem Cursor über das Panel huschen, dass keine Meldung erscheint. Vielleicht ist deine CPU-Auslastung einfach ziemlich hoch?

Vielleicht hast Du das Panel Breit gemacht. Mach das Panel klein wie ein Button und noch einmal ausprobieren

---

[taktaky]

Zitat:

Zitat von DeddyH

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not PtInRect(Rect(Left,Top,Left + Width, Top + Height),Mouse.CursorPos) then
    Close;
end;

So z.B.

Schon ausprobiert und funktioniert sehr gut :thumb: .

Ich wollte den selben Code um das Form2 aufzurufen (und zu beenden), dann wird das Form2 zwar aufgerufen auch wenn ich sehr schnell den Cursor bewege, erscheint aber danach eine Fehlermeldung:

Delphi-Quellcode:

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

[DeddyH]

Das war der Code für Form2, um es beim Verlassen zu beenden (auch wenn Form1 da steht).

[taktaky]

Ja Form2 wird wie gewünscht beendet mit Timer1
Ich muss aber auch das Form2 mit einem anderen Timer genauso einblenden lassen

Wie kann ich nun Form2 aufrufen, wenn der Cursor auf Panel2 kommt?
Aber genuso mit einem anderen Timer und nicht so:

Delphi-Quellcode:

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  begin
Form2.ShowModal();

end;

Oder stimmt was @OregonGhost gesagt hat und können wir dafür nicht machen ?

Also mit dem Code kann ich Form2 einblenden, wenn der Cursor auf Form1 kommt.
Ich möchte aber das Form2 einblenden, wenn der Cursor auf Panel2 kommt und nicht auf Form1 :

Delphi-Quellcode:

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

Leider kann man keinen Timer auf Panel anlegen.


-----------

[turboPASCAL]

Zitat:

Zitat von taktaky

Leider kann man keinen Timer auf Panel anlegen.

Och, der liegt doch da sehr gut. :mrgreen:

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:

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 :mrgreen:
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:

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 :thumb:

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 ! :gruebel: