[Delphi] Dynmiczne komponenty. Metody.

0

Podczas tworzenia dynamicznego komponemtu chce mu nadać zdarzenie OnClick. Jak już Vogel sie wypowiedział musi to być Metoda komponentu(np. [code]dynam.OnClick:=button1.OnClick;[/code]).

tereaz pytanie: Jaką procedurkę musze wpisać w Button1Click();, aby jego Caption przyjmował wartość caption wciśniętego dynamicznego komponentu? Nie znam nazwy tego komoonentu. Myślę, z emogłoby być coś z "Sender" ale nie mam pojęcia jak to zrobic ....

0

Button1.Caption:=(sender as TButton).Caption;

Niestety, działa tylko jeśli ten komponent dynamiczny to TButton, ale chuba właśnie o to ci chodziło.

Ew. można tak:

if (sender is TButton) then Button1.Caption:=(sender as TButton).Caption
else if (sender is TLabel) then Button1.Caption:=(sender as TLabel).Caption;

Nie gwarantuję że ten warunek z "is" zadziała, pisałem to z pamięci.

0

Button1.Caption:=(sender as TButton).Caption;

Niestety, działa tylko jeśli ten komponent dynamiczny to TButton, ale chuba właśnie o to ci chodziło.

Ew. można tak:

if (sender is TButton) then Button1.Caption:=(sender as TButton).Caption
else if (sender is TLabel) then Button1.Caption:=(sender as TLabel).Caption;

Nie gwarantuję że ten warunek z "is" zadziała, pisałem to z pamięci.

My_nick jak to zadziała to na zlocie ludków mash duże [browar] . To od czego wysyła, to moge dla labeli wziąć inną metodę !!!

1 użytkowników online, w tym zalogowanych: 0, gości: 1