窗口显示问题,应该不难. 各位师兄好: 新年好啊,有个问题,DELPHI7中如何让窗口只能最大化,最小化,而不能关闭,还有点击最小化后,让程序放到桌面的右下方,当光标移至那里时,程序又会变成正常的窗口大小显示出来? 希望有源代码说明.万分感谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1、自已画一个标题栏2、unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shellapi, Menus, AppEvnts,Registry; const mousemsg = wm_user + 1; //自定义消息,用于处理用户在图标上点击鼠标的事件 iid = 100; //用户自定义数值,在TnotifyIconDataA类型全局变量ntida中使用type TForm1 = class(TForm) Button1: TButton; PopupMenu1: TPopupMenu; N1: TMenuItem; ApplicationEvents1: TApplicationEvents; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure ApplicationEvents1Minimize(Sender: TObject); procedure FormShow(Sender: TObject); private procedure mousemessage(var message: tmessage); message mousemsg; { Private declarations } public { Public declarations } end;var Form1: TForm1; ntida:TNotifyIcondataA; //用于增加和删除系统状态图标 implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin ntida.cbSize := sizeof(tnotifyicondataa); //指定ntida的长度 ntida.Wnd := handle; //取应用程序主窗体的句柄 ntida.uID := iid; //用户自定义的一个数值,在uCallbackMessage参数指定的消息中使 ntida.uFlags := nif_icon + nif_tip + nif_message; //指定在该结构中uCallbackMessage、hIcon和szTip参数都有效 ntida.uCallbackMessage := mousemsg; //指定的窗口消息 // ntida.hIcon := Application.Icon.handle; //指定系统状态栏显示应用程序的图标句柄 ntida.szTip := 'Icon'; //当鼠标停留在系统状态栏该图标上时,出现该提示信息 shell_notifyicona(NIM_ADD, @ntida); //在系统状态栏增加一个新图标end;procedure TForm1.mousemessage(var message: tmessage);var mousept: TPoint; //鼠标点击位置begin inherited; if message.LParam = wm_rbuttonup then begin //用鼠标右键点击图标 getcursorpos(mousept); //获取光标位置 popupmenu1.popup(mousept.x, mousept.y); //在光标位置弹出选单 end; if message.LParam = wm_lbuttonup then begin //用鼠标左键点击图标 { //显示应用程序窗口 ShowWindow(Handle, SW_SHOW); //在任务栏上显示应用程序窗口 ShowWindow(Application.handle, SW_SHOW); SetWindowLong(Application.Handle, GWL_EXSTYLE, not (GetWindowLong(Application.handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW)); } end; message.Result := 0;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin Action := caNone; //不对窗体进行任何操作 ShowWindow(Handle, SW_HIDE); //隐藏主窗体 //隐藏应用程序窗口在任务栏上的显示 ShowWindow(Application.Handle, SW_HIDE); SetWindowLong(Application.Handle, GWL_EXSTYLE, not (GetWindowLong(Application.handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));end;procedure TForm1.Button1Click(Sender: TObject);begin ntida.cbSize := sizeof(tnotifyicondataa); ntida.wnd := handle; ntida.uID := iid; ntida.uFlags := nif_icon + nif_tip + nif_message; ntida.uCallbackMessage := mousemsg; ntida.hIcon := Application.Icon.handle; ntida.szTip := 'Icon'; shell_notifyicona(NIM_DELETE, @ntida); //删除已有的应用程序图标 Application.Terminate; //中断应用程序运行,退出应用程序 end;end. 第一个问题:procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin canclose:=false; Form1.WindowState:=wsMinimized;end; 不行啊, procedure ApplicationEvents1Minimize(Sender: TObject); procedure FormShow(Sender: TObject);这两个事件都没写.而且好象没有实现让窗口只能最大化,最小化,而不能关闭 1、EnableMenuItem(GetSystemMenu(Handle, FALSE),SC_CLOSE,MF_BYCOMMAND or MF_GRAYED); hellolongbin(一个人) 和 Kevin_Lmx(繁华阅尽)对实现让窗口只能最大化,最小化,而不能关闭这一问题都解决了.谢谢了先(分肯定不会少给的)现在就是让窗口在最小化时,缩到桌面右边任务内的问题还没解决.望赐教 还一个问题.^Byte类型(是指针吧)如何与string类型(如'1')互相转化呢? To 楼主:下面是Raize控件下载地址http://www2.fixdown.com/soft/12118.htm使用 RzTrayIcon,直接拖放到窗体上,几个属性简单明了 Delphi 弹出对话框 显示图片 dbgrid 的问题,有点急。。 如何让我做的浏览器不打开新的窗口 麻烦帮我写一个Unit 抓音频的问题,mmtools中的MMWaveIn用不出来,求救!!! 一个普通问题:怎样的到OS的系统目录(用delphi) 我想做个查询的存储过程,请帮我看看。。。 怎样在表中image字段中插入硬盘上的一个图形文件?(100分) !!再请帮帮忙!! 重金酬谢:改写BaKuBaKu先生的easygrid控件 在dll中能否把數據集作參數進行傳送? 怎样动态执行一个过程或函数?请高手指教,获得答案后,就结帖
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,shellapi, Menus, AppEvnts,Registry;
const
mousemsg = wm_user + 1; //自定义消息,用于处理用户在图标上点击鼠标的事件
iid = 100; //用户自定义数值,在TnotifyIconDataA类型全局变量ntida中使用
type
TForm1 = class(TForm)
Button1: TButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
ApplicationEvents1: TApplicationEvents;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure ApplicationEvents1Minimize(Sender: TObject);
procedure FormShow(Sender: TObject);
private
procedure mousemessage(var message: tmessage); message mousemsg;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
ntida:TNotifyIcondataA; //用于增加和删除系统状态图标
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
ntida.cbSize := sizeof(tnotifyicondataa); //指定ntida的长度
ntida.Wnd := handle; //取应用程序主窗体的句柄
ntida.uID := iid; //用户自定义的一个数值,在uCallbackMessage参数指定的消息中使
ntida.uFlags := nif_icon + nif_tip +
nif_message; //指定在该结构中uCallbackMessage、hIcon和szTip参数都有效
ntida.uCallbackMessage := mousemsg;
//指定的窗口消息
// ntida.hIcon := Application.Icon.handle;
//指定系统状态栏显示应用程序的图标句柄
ntida.szTip := 'Icon';
//当鼠标停留在系统状态栏该图标上时,出现该提示信息
shell_notifyicona(NIM_ADD, @ntida);
//在系统状态栏增加一个新图标
end;
procedure TForm1.mousemessage(var message: tmessage);
var
mousept: TPoint; //鼠标点击位置
begin
inherited;
if message.LParam = wm_rbuttonup then begin //用鼠标右键点击图标
getcursorpos(mousept); //获取光标位置
popupmenu1.popup(mousept.x, mousept.y);
//在光标位置弹出选单
end;
if message.LParam = wm_lbuttonup then begin //用鼠标左键点击图标
{ //显示应用程序窗口
ShowWindow(Handle, SW_SHOW);
//在任务栏上显示应用程序窗口
ShowWindow(Application.handle, SW_SHOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
not (GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW)); }
end;
message.Result := 0;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caNone; //不对窗体进行任何操作
ShowWindow(Handle, SW_HIDE); //隐藏主窗体
//隐藏应用程序窗口在任务栏上的显示
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,
not (GetWindowLong(Application.handle, GWL_EXSTYLE)
or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));
end;procedure TForm1.Button1Click(Sender: TObject);
begin
ntida.cbSize := sizeof(tnotifyicondataa);
ntida.wnd := handle;
ntida.uID := iid;
ntida.uFlags := nif_icon + nif_tip + nif_message;
ntida.uCallbackMessage := mousemsg;
ntida.hIcon := Application.Icon.handle;
ntida.szTip := 'Icon';
shell_notifyicona(NIM_DELETE, @ntida);
//删除已有的应用程序图标
Application.Terminate;
//中断应用程序运行,退出应用程序
end;end.
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=false;
Form1.WindowState:=wsMinimized;
end;
procedure FormShow(Sender: TObject);这两个事件都没写.
而且好象没有实现让窗口只能最大化,最小化,而不能关闭
对实现让窗口只能最大化,最小化,而不能关闭这一问题都解决了.
谢谢了先(分肯定不会少给的)现在就是让窗口在最小化时,缩到桌面右边任务内的问题还没解决.望赐教
http://www2.fixdown.com/soft/12118.htm
使用 RzTrayIcon,直接拖放到窗体上,几个属性简单明了