Event abhängig von Mauspos. auf Form ?

[Hansa]

Moin,

zuerst ein Beispiel : auf Form liegt Panel. Beim Drücken von z.B. '1' soll etwas ausgelöst werden. Aber nur dann, wenn sich der Mauszeiger über dem Panel befindet. Hierzu bräuchte ich zumindest den Namen diese Panels. Wie könnte man das machen ?

[Sir Rufo]

delphi control unter maus

[Volker Z.]

Hallo,

Zitat:

zuerst ein Beispiel

Das liest sich wie: Ford liegt auf Pamela. Beim drücken von ... soll ... und wenn dann noch der ... dann soll ... wenn ich hinterher noch wüsste wie Pamela mit Vornamen hieß, dann ...

Und Du willst wirklich ersthafte Antworten?

Gruß

[Hansa]

Der Vergleich hinkt gewaltig. Eher so : ich komme in einen dunklen Raum (Form) und sehe kaum was. Dann setze ich mich auf Couch und Huch, da liegt schon einer (Ford bzw. ein Panel) ! Und nun will ich von dem wissen wie er heisst, um dann dementsprechend die weitere Vorgehensweise auszuführen (Event ausführen bzw. den rausschmeissen).

P.S.: Sir Rufos Tip hat genügt, Thx.

[Hansa]

Ne, Tip genügt doch nicht. Ich kriege zwar das Control, aber dann ist Ende Gelände.

Delphi-Quellcode:

c := FindDragTarget(Mouse.CursorPos, false);
ShowMessage(c.name);

Nicht mal das showmessage funktioniert. Das TControl c ist nicht assigned. Kann man da noch was machen ?

[DeddyH]

Ich hätte es mit ControlAtPos versucht.

[Hansa]

Das ist bis auf Feinheiten dasselbe. Siehe OH. Ich hatte das ja auch die Nacht noch zumindest so, dass ein Label auf der Form in der Caption den Namen des gesuchten Controls hatte. Es ist zum verrecken : finde das nicht mehr.

[dataspider]

So etwa?

Delphi-Quellcode:

unit frm_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TfrmMain = class(TForm)
    Panel1: TPanel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

function FindDisabledWinControl(AControl: TWinControl; Pos: TPoint): TWinControl;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

function FindDisabledWinControl(AControl: TWinControl; Pos: TPoint): TWinControl;
var
  AChildHandle: HWND;
  APrevChildHandle: HWND;
  APos: TPoint;
begin
  Result := nil;
  AChildHandle := 0;
  APrevChildHandle := AControl.Handle;
  APos := AControl.ScreenToClient(Pos);
  repeat
    if AChildHandle <> 0 then
      APrevChildHandle := AChildHandle;
    if(Result <> nil) then
      APos := Result.ScreenToClient(Pos);
    AChildHandle := ChildWindowFromPointEx(APrevChildHandle, APos, CWP_ALL);
    Result := FindControl(AChildHandle);
  until (AChildHandle = 0) or (AChildHandle = AControl.Handle) or
        (AChildHandle = APrevChildHandle);
  Result := FindControl(APrevChildHandle);
end;

procedure TfrmMain.FormKeyPress(Sender: TObject; var Key: Char);
Var
  AControl: TWinControl;
begin
  if key = '1' then
  begin
    AControl := FindDisabledWinControl(Self, Mouse.CursorPos);
    if AControl <> nil then
      MessageDlg(AControl.Name, mtInformation, [mbOK], 0);
  end;

end;

end.

Frank