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

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


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

[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
  @NewButton.OnMouseEnter := @MeinEigenesOnMouseEnter; die Adressen einander zuweisen?
schreib einfach
  NewButton.OnMouseEnter := MeinEigenesOnMouseEnter; das sollte problemlos funktionieren (falls MeinEigenesOnMouseEnter wie folgt deklariert ist):
    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