ایجاد آبجکتها به صورت realtime

[salam007]

با سلام
من میخاستم موقع اجرای برنامه مثلا هر تعداد label یا button که خواستم به برنامه اضافه کنم ، آیا اصلا چنین چیزی امکان دارد ؟

[Ananas]

سلام.
بله امکان داره. مثال :

uses Vcl.StdCtrls;
procedure TForm1.FormCreate(Sender: TObject);
var
btns : array of TButton;
I: Integer;
begin
SetLength(btns, 10);
for I := 0 to High(btns) do
begin
btns[i] := TButton.Create(Self);
btns[i].Parent := Self;
btns[i].Left := 10;
btns[i].Top := i * (btns[i].Height + 4) + 4;
btns[i].Caption := 'Button' + IntToStr(i);
end;
end;

[salam007]

مرسی ، فقط اینکه ما چجوری میتونیم از این اشیا استفاده کاربردی کنیم مثلا یک کدی با زدنش اجرا کنیم یا به فرض مثلا کپشن لیبل های ایجاد شده به این طریق را تغییر دهیم

[Felony]

بارها و بارها تو همین بخش من و دیگر کاربران جواب این سوالات رو دادیم ، لطف کنید کمی به خودتون زحمت جست و جو بدید ، با این سوالات شما و کسانی که به شما جواب میدن ( منجمله خودم ) داریم به این سایت خیانت میکنیم ، برنامه نویس هر روز داره از روز قبل بدتر میشه ، برنامه نویس داره میشه مکانی برای تکرار مکررات ، واقعا خسته کننده شده ...

[Mahmood_M]

لطفا قبل از ارسال تاپیک ، در سایت جستجو کنید ، در این مورد بارها بحث شده ، به عنوان نمونه ، اینجا (http://barnamenevis.org/showthread.php?237956-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%A7%D8%B4%DB%8C%D8%A7%D8%A1-%D8%AF%D8%B1-%D8%B2%D9%85%D8%A7%D9%86-%D8%A7%D8%AC%D8%B1%D8%A7%DB%8C-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87) و اینجا (http://barnamenevis.org/showthread.php?204854-%D8%B1%D9%88%DB%8C%D8%AF%D8%A7%D8%AF%D9%87%D8%A7%D B%8C-%D8%A2%D8%A8%D8%AC%DA%A9%D8%AA-%D9%87%D8%A7%DB%8C-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D8%B4%D8%AF%D9%87-%D8%AF%D8%B1-RunTime) !

تاپیک قفل شد ...