main menu

[vedatkaba]

Merhaba arkadaşlar yine size ihtiyacım var...

procedure TForm1.FormCreate(Sender: TObject);
var
a:TToolbutton;
size,i:integer;
begin
size:=0;
for i:=mainmenu1.Items.Count-1 downto 0 do
begin
a:=TToolbutton.Create(toolbar1);
a.Parent:=toolbar1;
a.AutoSize:=true;
a.Grouped:=true;
a.Caption:=mainmenu1.Items.Caption;
a.MenuItem:=mainmenu1.Items;
inc(size,a.Width);
end;
toolbar1.Width:=a.Width;
menu:=nil;
end;
end.

Bu komutla menuleri controlbar parkediyorum.
1.formun en üstünde panel var
2.title barı yokettim
3.menuler xp tarzında
ama bu komutla menu leri control bar parkettiğim zaman menuler xp tarzını yitiriyor.parketmesem paneli formun en üste yerleştirmekte sorun var.hem xp tarzı menu hem en formun en üstünde panel olması gerekiyor.Çünkü formun başlığını ben kendim tasarlıyorum.

Hepinize kloay gelsin.