Okay ich habs jetzt mal mit der Findcomponent-Methode versucht...Jetzt tritt der Fehler
Inkompatible Typen: 'Integer' und 'TImage' auf. Es wird wahrscheinlich mit dem +'.Left' zutun haben...Hier der source:
Delphi-Quellcode:
procedure TForm1.imgBackroundMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
i, j : integer ;
begin
for i := 1 to 34 do begin
j := (findcomponent('Image'+inttostr(i)+'.Left') as TImage) ;
if X >= j
// if (X >= Image(i).Left) and (X <= Image(i).Left+Image(i).Width ) and
// (Y >= Image(i).Top ) and (Y <= Image(i).Top +Image(i).Height)
then label1.Caption := 'JIIIHA' else label1.Caption := 'RAMSIIIM' ;
end;
end;
Bitte wieder um Hilfe und danke an Lukie für den Tipp mit Findcomponent
