你说的是不是状态栏???win32里statusbar!!!
解决方案 »
- 如何判断sql数据库中是否存在某个表?
- 用DBGrid控件来显示数据表中的各字段值问题!!急!!!!!
- 100分调查各位朋友用什么软件制作setup安装文件?
- Delphi + MySQL , 再问安装打包问题! (ODBC自动配置)
- 通用带函数的表达式的解析与求值算法!!!!!!!!!!!!!!!IMPORTANT!
- QuickRep的PageFooter怎么没了?????????
- 所谓多层架构到底是什么啊?
- 如何自动把一个HTML页面打印到文件?
- 在delphi6.0中关于打印的有哪些控件??????谢谢!!!!怎么用??
- 关于打开窗口的问题!来拿分!
- 不同的操作系统中的日期显示问题?
- 闲来无聊!突然想到数字水印这个东西!
那是应用程序系统菜单。没有控件的,自己用api改吧。给你个例子。你先放一个TApplicationEvents(在控件面板ADDITIONAL页里)。 然后生成下面的代码:procedure TForm1.FormCreate(Sender: TObject);
var mnu: HMENU;
begin
AppendMenu(GetSystemMenu(application.Handle, false), MF_SEPARATOR, 0, '');
InsertMenu(GetSystemMenu(application.Handle, false), 2, MF_BYPOSITION, 200, '前端显示(&A)');
end;//TApplicationEvents的OnMessage事件。
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message=wm_syscommand then
begin
if loword(Msg.wparam)=200 then
showmessage('yes');
end;
handled:=false;
end;
你试试就明白了。呵呵