Buttonklick erkennen

[devnull]

Hi,

wie kann ich erkennen, ob sich der Mauszeiger, über einem während der Laufzeit er- stellten Button, befindet ?


devnull

[mirage228]

Delphi-Quellcode:

function GetObjectAtCursor: String;
{

  Liefert VCL-Klassennamen an
  der aktuellen Mausposition!
  Für Debugzwecke

}
var
  Pos: TPoint;
  Obj: TObject;
begin
  GetCursorPos(Pos);
  Obj := FindVCLWindow(Pos) as TObject;
  if Obj <> NIL then
    Result := Obj.ClassName else // du könntest nach TComponent casten und so an den Namen der Komponente rankommen!
    Result := 'Unknown Object at Cursor Position';
end;

Vielleicht hilft dir das irgendwie weiter...

mfG
mirage228

[devnull]

Hi,

erstmal danke; aber ich bekomm jetzt nur mein eigenes Fenster (Form1) heraus.
nicht den Button !

devnull

[Sharky]

Hai devnull,

suche doch mal im Forum nach MouseOver bzw. MouseEnter.

Dann solltest Du einige Beispiele finden.

Gruss :-D

[Niko]

Du könntest auch das OnMouseOver-Ereignis des Buttons belegen.

EDIT: Mist...

[devnull]

danke für eure geduld, daran hätte ich wohl auch sleber denken können...


:wall: devnull

[Basic-Master]

dashier funzt bei mir :)

Delphi-Quellcode:

function GetObjectAtCursor: String;
var
  Pos: TPoint;
  Obj: TObject;
  Wnd: THandle;
begin
  GetCursorPos(Pos);
  if not assigned(FindVCLWindow(Pos)) then begin
    Result := 'Unknown Object at Cursor Position';
    exit;
  end;
  Wnd := FindVCLWindow(Pos).Handle;
  if Wnd = 0 then begin
    Result := 'Unknown Object at Cursor Position';
    exit;
  end
  else begin
      obj := FindControl(Wnd) as tobject;
    if Obj <> NIL then
      Result := Obj.ClassName
    else
      Result := 'Unknown Object at Cursor Position';
  end;
end;

allerdings funktioniert die funktion nur für das gerade aktive fenster :gruebel:

[devnull]

Problem mit OnMouseEnter:

Das "OnMouseEnter"-Ereignis gibts nicht in der EingabeHilfe.

Delphi-Quellcode:

// SpeedButton !!!
var NewButton: TSpeedButton;
begin
  // Neuen Button auf Form 1 erzeugen:
  NewButton := TSpeedButton.Create(Form1);
  // Eigenschaften des neuen Buttons festlegen:
  with NewButton do begin
    Parent := Form1;
    Caption := 'Test';
    Top := 10;
    Left := 100;
    Height := 10;
    Width := 100;
    // geht nicht, ereignis geht nicht
    @NewButton.OnMouseEnter := @MeinEigenesOnMouseEnter;
    // funktioniert
    @NewButton.OnClick := @MeinEigenesOnClick;
  end;

Kann mir einer helfen ???

devnull

[mr2]

warum willst Du denn mit

Delphi-Quellcode:

  @NewButton.OnMouseEnter := @MeinEigenesOnMouseEnter;

die Adressen einander zuweisen?
schreib einfach

Delphi-Quellcode:

  NewButton.OnMouseEnter := MeinEigenesOnMouseEnter;

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

Delphi-Quellcode:

    procedure MeinEigenesOnMouseEnter(Sender: TObject);

CU mr2

[devnull]

hi,
das Problem is, dass ONMOUSEENTER nicht geht (CompilerFehler: Undefinierter Bezeichner: 'OnMouseEnter').

Ich glaub, das OnMouseEnter nur bei LABELS geht, aber wie krieg ich dann raus, ob der Mauszeiger über einem der Buttons ist ?

devnull

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

Delphi-Quellcode:

  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:

Zitat von mr2

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

Delphi-Quellcode:

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