نحوه ایجاد یک panel

[سیروس مقصودی]

با سلام

من چگونه میتوانم از طریق کد نویسی در داخل یک فرم یک panel ایجاد کنم و در داخل همان panel ایجاد شده یک label ایجاد کنم و nameشان را تغییر بدهم ( از طریق کد نویسی میخواهم چون هنگام اجرا مشخص نیست کاربر چندتا panel و lablel ایجاد خواهد کرد)
و چگونه میتوانم در رویداد onclick پنلی که ایجاد کردم دستوراتی را بنویسم

با تشکر ...

[دلفــي]

با سلام

من چگونه میتوانم از طریق کد نویسی در داخل یک فرم یک panel ایجاد کنم و در داخل همان panel ایجاد شده یک label ایجاد کنم و nameشان را تغییر بدهم ( از طریق کد نویسی میخواهم چون هنگام اجرا مشخص نیست کاربر چندتا panel و lablel ایجاد خواهد کرد)
و چگونه میتوانم در رویداد onclick پنلی که ایجاد کردم دستوراتی را بنویسم

با تشکر ...


procedure TForm1.Button1Click(Sender: TObject);
var
pnlTest : TPanel;
lbTest : TLabel;
begin


pnlTest := TPanel.Create(Form1);
pnlTest.Parent := Form1;
pnlTest.Width := 200;
pnlTest.Height := 100;
pnlTest.Left := 50;
pnlTest.Top := 50;


lbTest := TLabel.Create(pnlTest);
lbTest.Parent := pnlTest;
lbTest.Left := 20;
lbTest.Top := 20;
lbTest.Caption := 'Test Label ...';


end;

[سیروس مقصودی]

چگونه میتوانم در رویداد Onclick آن panel مورد نظر که بوسیله کد نویسی ایجاد کرده ام دستوراتی را بنویسم

[یوسف زالی]

اول باید یک متد بنویسید بعد هنگام ساخت اشیا آن را به پراپرتی مربوطه منتسب کنید:



procedure MyClick(Sender: TObject);
.
.

Obj.OnClick := MyClick;