Image soll durch darüber liegendes Label angeklickt werden.

[Hallo_Thomas]

@BrunoT Ich danke dir für den ausführlichen beitrag,aber is nicht ganz das was ich mir vorstelle. Trotzdem Danke!


So hab noch mal am Text gefeilt,und er funktioniert auch fasst.

Hab noch ein Problem mit dem ich nicht zurecht komme, und zwar diese Zeile.

OnClick((FindComponent('Image'+(iString)))); Er will irgendwie das Image nich annehmen
(Fehlermeldung heist Zugriffsverletzung, bla,bla)


Wenn ich die Zeile so schreibe nimmt er sie korrekt an.
OnClick(Image1);

Hier die Komplette Prozedur

Delphi-Quellcode:

procedure TForm1.MeinClick(Sender: TObject); 
var
  i: Integer;
  iString:String;
begin
  for i := 1 to 3 do
  begin
    iString:=IntToStr(i);
    if  (FindComponent('Image'+(iString)) as TImage) is  TImage then
    begin
      with (FindComponent('Image'+(iString)) as TImage)  do
        if PtInRect(Rect(0, 0, Width, Height), ScreenToClient(Mouse.CursorPos)) then
        OnClick((FindComponent('Image'+(iString))));
    end;
  end;

Hab natürlich auch dies probiert

OnClick((FindComponent('Image'+(iString)) as TImage));
aber klappt auch nicht