Zitat von
alcaeus:
Hi Nicolai,
Code:
var Quadrat: Array [1..100,1..100] of TImage;
with Quadrat[x,y] do
begin
parent := form1;
height := hw;
width := hw;
left := (x-1)*hw+190;
top := (y-1)*hw+5;
picture.LoadFromFile('Pictures\Blume.ico');
[color=red]OnClick := DeineProzedur;[/color]
end;
end;
Greetz
alcaeus
Dann sieht es so aus:
Zitat von
Mein Delphi 6 Professional:
[Fehler] Unit1.pas(59): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'