Advanced Search

Return to Snippet

Revision: 57789
at June 9, 2012 13:46 by airwei
Initial Code 
self.StatusBar1.Panels.Clear;

self.StatusBar1.Panels.AddItem(nil,0);
self.StatusBar1.Panels[0].Width := trunc(SimpleRoundTo(self.ClientWidth/5)); // 寬度=1/5
self.StatusBar1.Panels[0].Style := psText;

self.StatusBar1.Panels.AddItem(nil,1);    //給progressBar 用
self.StatusBar1.Panels[1].Style := psOwnerDraw;
Initial URL 









Initial Description





第一個panel指定放文字，第二個panel指定放非文字(如進度progressBar)









Initial Title





Startus Bar如何能動態新增兩個panels









Initial Tags














Initial Language





Delphi