ساختن کنترل در زمان اجرا

[sahar_ah]

سلام
من میخوام بتونم در زمان اجرا کنترل هایی مثل Button یا ادیت باکس یا پنل بسازم.میشه در این زمینه راهنماییم کنید.ممنونم

[Touska]

تو onclick یک دکمه اینو بنویسید :


procedure TForm1.Button1Click(Sender: TObject);
Var
B : TButton;
begin
B := TButton.Create(Self);
B.Name := 'Button2';
B.Caption := 'Salam';
B.Left := 10;
B.Top := 10;
B.Parent := Form1;
end;

[sahar_ah]

ممنونم
دستتون درد نکنه