Buttonklick erkennen

[mr2]

weil es bei TSpeedButton kein OnMouseEnter gibt, nimm doch einfach OnMouseMove dann musst Du die Deklaration allerdings anpassen:

Delphi-Quellcode:

    procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);

CU mr2

[devnull]

Habs probiert. Das compilieren geht jetzt, aber sobald ich die Maus über den Speedbutton bewege, bricht das Programm ab mit Fehlermeldung
"Format '%p' ungültig [...]"

Hast du ne Ahnung was das sein könnte ?

devnull

[mr2]

wie sieht denn die Implementierung von MeinEigenesMouseMove aus?
  Format('%p', [Self]); // ergibt 0x....... wird nur verwendet, um einen Pointer in einen String umzuwandeln.

CU mr2

[devnull]

das sieht in der procedure dann so aus:

Delphi-Quellcode:

var button_name : string;
begin
   button_name := TSpeedButton(Sender).Caption;
   [...]
end;

Der Befehl Format (): wird im gesamten Programm nicht verwendet !!!


devnull

[mr2]

Hallo,

Du solltest vor dem Typecasting immer mittels is prüfen, ob der "Sender" wirklich eine Instanz der Klasse ist:

Delphi-Quellcode:

  if (Sender is TSpeedButton)
  then button_name := (Sender as TSpeedButton).Caption;

Schau mal bei der Exception zur Laufzeit in den Aufrufstack (über Ansicht, Debug-Fenster, Aufruf-Stack oder <STRG><ALT><S>).
Dort siehst Du dann wo die Format-Anweisung herkommt.

CU mr2

[Christian Seehase]

Moin devnull,

such' hier mal nach CM_MOUSEENTER
Das muss man selber deklarieren.

@mr2:

Zitat von mr2:

das sollte problemlos funktionieren (falls MeinEigenesOnMouseEnter wie folgt deklariert ist):
Source:

    procedure MeinEigenesOnMouseEnter(Sender: TObject);

Nein, nur falls es als TNotifyEvent deklariert ist.

Delphi-Quellcode:

type
  TNotifyEvent = procedure(Sender: TObject) of object;

So ist wie Du geschrieben hast, ist es eine reine Prozedur und kann nicht so zugewiesen werden, sondern nur mit Hilfe von @.

[mr2]

Dass es (selbstverständlich) eine Objekt-Methode ist, hab' ich in dem Zusammenhang einfach vorrausgesetzt