1.請放一顆TImageList放入自己所需的圖案 2.放一TStatusBar 3.增加StatusBar的Panel 4.將所增加的Panel.Style設為psOwnerDraw 5.加入以下程式碼在StatusBar的OnDrawPanel裡

procedure TForm1.Statusbar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
   with StatusBar1.Canvas do
   begin
     FillRect(Rect);
     Font.Name := 'Arial';
     Font.Color := ClNavy;
     Font.Style := [FsBold];         ImageList1.Draw(StatusBar1.Canvas,Rect.Left 5,Rect.Top 1,Panel.Index);         if Panel.Index = 0 then
     TextOut(Rect.Left   25, Rect.Top   1,'Test1');
     if Panel.Index = 1 then
     TextOut(Rect.Left   25, Rect.Top   1,'Test2');
     if Panel.Index = 2 then
     TextOut(Rect.Left   25, Rect.Top   1,'Test3');
   end;
end;

GoodLuck 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.