自汇状态栏.txt

来自「创建异形窗体可以创建出各种各样的异形窗体」· 文本 代码 · 共 14 行

//设置状态栏面板对象的Style为OwnerDraw,并在状态栏对象的DrawPanel事件中书写以下代码：

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;Panel: TStatusPanel; const Rect: Trect);
　begin
　　with statusbar1.Canvas do 
begin
　　　Brush.Color := clRed;
　　　FillRect(Rect);
　　　TextOut(Rect.Left, Rect.Top,'Panel'+IntToStr(Panel.Index));
end;
end;