Создание Tbutton в Runtime

[VahaC]

Делаю так

procedure TMainForm.New1Click(Sender: TObject);
var
bu: TButton;
begin
bu:=TButton.Create(CoolBar1);
bu.Parent:=CoolBar1;
bu.Name:='but1';
bu.Caption:='but1';
end;

создает каждую кнопку отдельном CoolBand а надо все в одном как ето исправить?

 

[morpheus]

а что такое CoolBand ?

 

[VahaC]

а что такое CoolBand ?

на нём как раз и отображается кнопка

 

[morpheus]

ну так и пешите паренту Вашей новой кнопки - CoolBand
bu.Parent:=CoolBand;

 

[VahaC]

ну так и пешите паренту Вашей новой кнопки - CoolBand
bu.Parent:=CoolBand;

помогло но есть ещё вопрос как зделать так чтобы кнопки располагались как окна на панели задач а то они закрывают друг друга

 

[morpheus]

Для: VahaC
пишите при создании кнопки TOP и LEFT соответственно - это и будут координаты кнопок на CoolBand относительно веръхнего левого угла

 

[BVS]

<!--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