چینش کامپوننت در زمان اجرا [بایگانی]

nassim_20

سه شنبه 28 خرداد 1387, 10:25 صبح

می خواهم یکسری کامپوننت مثلا label رو در زمان اجرا بسازم که caption هایی با تعداد کاراکترهای متفاوت دارند مثلا یکی 5 کارکتره و دیگری 30 کارکتر
من می خواهم اینها رو از زیر هم بسازم و از سمت راست تراز باشند البته در یه ScrollBox ساخته می شوند یعنی parent آنها crollBox است قطعا یه ارتباطی باید با طول ScrollBoxداشته باشد اما هر چی سعی میکنم نمیشه
کدش اینه:

top_component := 10;
i := 1;
DBISAMTable1.Open;
DBISAMTable1.First;
while not(DBISAMTable1.Eof) do
begin
i := i+1;
TLabel.Create(Self).Name := 'F' + IntToStr(i);
with TLabel(FindComponent('F' + IntToStr(i))) do
begin
top := top_component;
Caption := (DBISAMTable1.FieldByName('Caption').AsString);
Parent := ScrollBox1;
top_component := top_component + 13 ;
end;
DBISAMTable1.Next;
end;