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