Çalışma anında oluşan stringgride procedure atamak

[kara_kule06]

Kolay Gelsin...
Beni sorunum şu Programım çalışırken bir butona tıkladıkça yenibir strinGrid oluşturuyor. String Gridi oluşturan kod şöyle;

Kod: Tümünü seç

procedure Talan_sablon.BitBtn1Click(Sender: TObject);
var
i: integer;
YeniTabloGrid: array[1..10] of TStringGrid;

begin

YeniTabloGrid[i]:=TStringGrid.Create(self);
YeniTabloGrid[i].Parent:=(self);
i:=i+1;

end;

buraya kadar herşey normal. belirlediğim yere bir string grid oluşturuyorum. Şimdi ise bu stringgridlere procedure atamak istiyorum.
mesela ikinci oluşturduğum string gridin üstüne geldiği zaman bir işlem yapsın(mesaj verme gibi vs.). bunu nasıl yapabilirim.
tekrar kolay gelsin. tşk.

[aslangeri]

s.a.
bunun için proceduru atamak istediğiniz olaya uygun parametrelerle yazmanız lazım.
(bunun için forma bir stringgird koyun istediğiniz olay için procedure yazın. sonra stringridi silin procedure orda kalacaktır.)
sonra stringgridi oluşturduğuktan sonra

Kod: Tümünü seç

YeniTabloGrid[i].onclick:=benimprocedurem;

şeklinde atama yapabilirsiniz.

[kara_kule06]

teşekkürler hocam

istediğim gibi oldu.
Kolay Gelsin...