小弟我用Delphi不久以前在BCB里面我还是知道,可是Delphi里就不知了请指点,,谢谢。。
解决方案 »
- 如何获得客户端的打印记录,下载记录和U盘使用记录啊
- 请教抓图的方法
- 如何在SDI中的CFormView窗体中,实现分页窗体的功能
- 请问在用fastreport时,如何根据Memo的字段长度动态更改MasterData的高度?
- 大家推荐一个 Outlook Express 左边那种样子的 Bar 控件,上面要可以放 TreeView 的
- 如何全面实现高效, 快速的半透明窗体,或控件
- 中毒了!请问有谁知道“密码结巴”是什么来的?我好像中了这个东西!求救!
- 获得网络邻居所有机器名
- 在这里看到一段编码,有些不明之处请解答
- 组件
- Edit、Label等空件是不是不能接受数字?
- 简单问题求助,窗口最小化事件是哪个?立即给分
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar.Canvas do begin
case Panel.Index of
0: Font.Color := clRed;
1: Font.Color := clGreen;
end;
TextOut(Rect.Left+1, Rect.Top+1, Panel.Text);
end;
end;