Создание Tbutton в Runtime

VahaC

Well-known member
10.01.2007
116
0
#1
Делаю так
Код:
procedure TMainForm.New1Click(Sender: TObject);
var
bu: TButton;
begin
bu:=TButton.Create(CoolBar1);
bu.Parent:=CoolBar1;
bu.Name:='but1';
bu.Caption:='but1';
end;
создает каждую кнопку отдельном CoolBand а надо все в одном как ето исправить? :unsure:
 

morpheus

скриптописец
07.08.2006
3 915
1
#4
ну так и пешите паренту Вашей новой кнопки - CoolBand
bu.Parent:=CoolBand;
 

morpheus

скриптописец
07.08.2006
3 915
1
#6
Для: VahaC
пишите при создании кнопки TOP и LEFT соответственно - это и будут координаты кнопок на CoolBand относительно веръхнего левого угла
 
B
#7
<!--QuoteBegin-VahaC+17:08:2007, 10:51 -->
<span class="vbquote">(VahaC @ 17:08:2007, 10:51 )</span><!--QuoteEBegin-->как зделать так чтобы кнопки располагались как окна на панели задач
[snapback]75585" rel="nofollow" target="_blank[/snapback]​
[/quote]
Код:
bu.Align:= alLeft