Dinamik oluşturulan nesneye olay eklemek?

[salvation]

Merhaba;

Kod: Tümünü seç

  for i := 0 to 4 begin
  begin
    MenuButon := TDxBarButton.Create(Self);
    MenuButon.Tag := 99;
    .
    .
    .
  end;

Yukarıdaki şekilde, çalışma anında butonlar oluşuturuyorum, bu butonların OnClick olaylarını nasıl kullanabilirim?

[cfyasar]

butonun onclick olayında yapmasını istediğin işler için bir procedure yazacaksın. butonu yarattıktan sonra da butonun onclick olayına bu procedurü atayacaksın

Kod: Tümünü seç

  procedure Tform1.MyClick;
   . 
    ..
   ...

   for i := 0 to 4 begin
  begin
    MenuButon := TDxBarButton.Create(Self);
    MenuButon.Tag := 99;
    MenuButon.Onclick:=Myclick;
    .
    .
  end;

[salvation]

Evet bu şekilde hallettim. Teşekkürler.