OnClick bei Komponenten, die zu Laufzeit erstellt wurden!

[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