Element auf der sich Mauscursor befindet ausführen

[guevaradelaserna]

Hallo!
Mit dem Vorschlag ControlAtPos bin ich nicht weiter gekommen, da ein Image nicht zu TWinControl gehört! Habt ihr vll noch eine andere Idee, wie ich ein x-beliebiges Control mittels drüberfahren auslösen kann? Also wie im Code beschrieben, wird beim eintreten der Maus der Timer eingeschaltet und die gegenwärtige Zeit genommen. Der Timer überprüft jede Sekunde, ob der Schwellwert schon überschritten ist. Wenn dies der Fall ist soll er das jeweilige Click-Ereignis des Controls ausführen so dass dieser Teil ImageEx1Click(ImageEx1);] variabel sein soll.

Ciao Che

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
QueryPerformanceFrequency(a);
QueryPerformanceCounter(c);
if ((((c - b) * 1000 div a) >= 10000) and (b>0)) then
  begin
    ImageEx1Click(ImageEx1);
  end;
end;

procedure TForm1.ImageEx1MouseEnter(Sender: TObject);
begin
  timer1.Enabled:=true;
  QueryPerformanceCounter(b);
end;

procedure TForm1.ImageEx1Click(Sender: TObject);
begin
form1.Color:=clcream;
end;

procedure TForm1.ImageEx1MouseLeave(Sender: TObject);
begin
timer1.Enabled:=false;
end;