نحوه ایجاد یک 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;