Element auf der sich Mauscursor befindet ausführen

[bitsetter]

Zitat von guevaradelaserna:

nein ist leider nicht immer das selbe Panel! Notfalls kann ich auch mit mehreren Timern arbeiten.

Hallo,

oder versuche es mal mit einer Rekursion:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

  function GetControl(const c: TControl): TControl;
  var
    c2: TControl;
  begin
    Result:= c;
    c2:= nil;
    repeat
      if Result is TWincontrol then
      begin
        c2:= TWincontrol(Result).ControlAtPos(Result.ScreenToClient(mouse.CursorPos), false, true);
        if c2 is TWincontrol then
          GetControl(c2);
        if Assigned(c2) then
          Result:= c2;
      end;
    until not Assigned(c2) or not (Result is TWincontrol);
  end;

var
  c: TControl;
begin
  c:= GetControl(self);
  if Assigned(c) then
    caption:= GetControl(c).Name;
end;

Zitat von guevaradelaserna:

Ich habe keine Möglichkeit gefunden den Namen oder ähnliches herauszubekommen, um dann dieses Image ansprechen zu können.

Bye Che

Delphi-Quellcode:

  if c = Image1 then
...