tworzenie dynamiczne

0

Może ktoś wie jak dodać dynamicznie np. trzy przycisk i podpiąć do każdego z nich dany kod--Pozdrawiam eSka :-)

0

najpierw tworzymy proedurke np. Klik w sekcji private wpisujemy:
procedure Klik(Sender: TObject);

proedurka ta moze wygladac np. tak:
procedure TForm1.Klik;
begin
ShowMessage('Klik');
end;

nastepnie tworzymy 3 buttony i dla kazdego z nich przypisujemy ta procedurke Klik :-)
var
B : array[1..3] of TButton;
i : Integer;
begin
for i := 1 to 3 do
begin
B[i] := TButton.Create(Self);
with B[i] do
begin
Parent := Self ;
Top := 30 * i ;
Left := 10;
Width := 75;
Height := 25;
Caption := 'Button' + IntToStr(i);
OnClick := Klik;
end;
end;
end;

i to by bylo na tyle :-)

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Dzięki LKS nie dokładnie o to mi chodziło ale twój pomysł wiele mi uświadomił i myśle że sobie poradzę. Dzięki {browar} &ltbr&gt&ltbr&gt--&ltbr&gtPozdrawiam eSka :-)

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