我在http://sanjianxia.myrice.com/delphi/中找到了这一些,但我不是太明白,望各位前辈指教.
以下摘自http://sanjianxia.myrice.com/delphi
主题:如何在状态栏中加入图标,图片,还有动态的时间
内容:
function Shell_NotifyIcon(dwMessage:DWORD;lpData:PNotifyIconData):BOOL;stdcall;
在shellapi单元中。
dwMessage:NIM_ADD
NIM_MODIFY
NIM_DELETE
PNotifyIconData=^TNotifyIconDataA
TNotifyIconDataA=record
cbSize:DWORD;
Wnd:HWND;
uID:UINT;
uFlags:UINT;
uCallbackMessage:UINT;
hIcon:HICON;
szTip:array[0..63] of AnsiChar;
end;
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
...
const
MyIconID=1;
MyIconEvent=WM_USER+1;
...
private
...
MyIcon:TIcon;
...
//Install
var
IconData:TNotifyIcon;
...
MyIcon:=TIcon.Create;
MyIcon.LoadFromFile('icon1.ico');
with IconData do
begin
cbSize:=SizeOf(IconData); //
Wnd:=Form1.Handle; //
uID:=MyIconID; //
uFlags:=NIF_ICON;
『关闭窗口』如何在状态栏中加入图标,图片,还有动态的时间
function Shell_NotifyIcon(dwMessage:DWORD;lpData:PNotifyIconData):BOOL;stdcall;
在shellapi单元中。
dwMessage:NIM_ADD
NIM_MODIFY
NIM_DELETE
PNotifyIconData=^TNotifyIconDataA
TNotifyIconDataA=record
cbSize:DWORD;
Wnd:HWND;
uID:UINT;
uFlags:UINT;
uCallbackMessage:UINT;
hIcon:HICON;
szTip:array[0..63] of AnsiChar;
end;
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
...
const
MyIconID=1;
MyIconEvent=WM_USER+1;
...
private
...
MyIcon:TIcon;
...
//Install
var
IconData:TNotifyIcon;
...
MyIcon:=TIcon.Create;
MyIcon.LoadFromFile('icon1.ico');
with IconData do
begin
cbSize:=SizeOf(IconData); //
Wnd:=Form1.Handle; //
uID:=MyIconID; //
uFlags:=NIF_ICON;
uCallBackMessage:=MyIconEvent;
hIcon:=Handle; //Change
szTip:='My Test Icon';
Shell_NotifyIcon(NIM_ADD,@IconData);
...
//做了标记的是改或删时要设的。
//precedure IconOnClick(msg:TMessage);message MyIconEvent;
if(msg.lParam=WM_RBUTTONDOWN) then
GetCursorPos(p); //p:TPoint;
PopupMenu1.Popup(p.x,p.y);
解决方案 »
- delphi 依然是access数据库中存入问题
- 生成xml文件,因过大而出现的问题
- 问一下。怎么在DELPHI2006中安装FASTREPORT3.2版本
- 大虾求救:MS SQL ,我想表里有一个关键字段CODE,内容是广东001,广东002,湖北001,湖北002,湖北003。。。
- FastReport 2.51轉換成ReportMachine2.6
- 请问一个采鸟的问题:对于分布式数据库,如何连接分布在不同位置的数据库表?
- 有关sql里sum的问题,在线等!
- 一个简单的问题!!!NIL如何判断????
- 半路程序员!!!
- 用何用DELPHI可以实现选择SQL SERVER里的表?
- ●●●请推荐好点的收费空间●●●
- activeForm的多线程问题
begin
StatusBar1.Panels[2].Text := FormatDateTime('yyyy"年" mmmm d"日" dddd hh:mm:ss', Now);
end;
设置它的间隔为1000(缺省)
procedure TF.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[2].Text := FormatDateTime('yyyy"年" mmmm d"日" dddd hh:mm:ss', Now);
end;再放一STATUSBAR即可
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time; // store the current date and time
str := TimeToStr(DateTime); // convert the time into a string
StatusBar1.Panels[2].Text:='Today is :'+ DateToStr(Date)+' 系统时间:'+str;end;