Ich habe folgendes Problem!
Ich habe ein array of TImage und möchte, dass die einzelnen elemnte angeklickt werden können.
Karte[1].OnClick funktioniert nicht
Delphi-Quellcode:
var
Form1: TForm1;
var karte : array [1..100] of TImage;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var j,i,a,b :integer;
begin
a:=2;
b:=2;
for j:= 1 to 4 do begin
for i:=1 to 5 do begin
Karte[i]:=TImage.Create(Self);
Karte[i].Parent:= Self;
Karte[i].Left:=a;
Karte[i].Top:= b;
Karte[i].AutoSize:=True;
Karte[i].Picture := Image1.picture;
a:=a+100;
end;
a:= 2;
b:= b+ 100;
end;
end;
Ich habe die Bilder in die Form geladen um "picture.loadfromfile();" nicht zu benutzen, damit ich am Ende nur eine Exedatei habe.
Ich möchte das Spiel Memory machen.
Vielen Dank im Voraus!