Event abhängig von Mauspos. auf Form ?

[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