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.


-----------