/ Published in: Delphi
第一個panel指定放文å—,第二個panel指定放éžæ–‡å—(如進度progressBar)
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
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;