社区
Delphi
帖子详情
关于Form的一个问题
sirliner
2003-08-25 01:43:50
form如果没有设成主窗体,那么在最小化时会缩在桌面的左下角.
有没有办法让它停在任务栏上.
...全文
83
4
打赏
收藏
关于Form的一个问题
form如果没有设成主窗体,那么在最小化时会缩在桌面的左下角. 有没有办法让它停在任务栏上.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
sirliner
2003-08-31
打赏
举报
回复
我解决了.
moeryang
2003-08-25
打赏
举报
回复
到网上找一下记得以前看过这样的文章好象要改一下.pas的源文件
hongqi162
2003-08-25
打赏
举报
回复
{操作Tray的模块}
unit Tray;
interface
uses
ShellAPI, Windows, Forms, SysUtils, Messages;
const
WM_TrayMessage = WM_USER+1;
TrayID: Integer = 1;
IconName: array[False..True] of string= ('TRAY_CLOSED', 'TRAY_OPEN');
Hint: array[False..True] of string= ('StarCraft Battle Batman(Disabled)', 'StarCraft Battle Batman');
var
MyTray: TNotifyIconData; //Tray变量
IsEnabled: Boolean = True;
//初始化Tray
procedure InitTray (Handle: HWND);
//改变Tray的标题
procedure ChangeTray;
//删除Tray
procedure DelTray;
implementation
{$R Tray.res}
procedure InitTray (Handle: HWND);
var
S: string;
I: Integer;
begin
MyTray.cbSize := SizeOf(MyTray);
MyTray.Wnd := Handle;
MyTray.uFlags := NIF_ICON Or NIF_MESSAGE Or NIF_TIP;
MyTray.uID := TrayID;
MyTray.hIcon := LoadIcon(HInstance, PChar(IconName[IsEnabled]));
S:= Hint[IsEnabled];
FillChar (MyTray.szTip, SizeOf(MyTray.szTip), 0);
for I:=1 to Length(S) do MyTray.szTip[I-1]:= S[I];
MyTray.uCallbackMessage := WM_TrayMessage;
Shell_NotifyIcon (NIM_ADD, @MyTray);
end;
procedure ChangeTray;
var
S: string;
I: Integer;
begin
MyTray.hIcon := LoadIcon(HInstance, PChar(IconName[IsEnabled]));
S:= Hint[IsEnabled];
FillChar (MyTray.szTip, SizeOf(MyTray.szTip), 0);
for I:=1 to Length(S) do MyTray.szTip[I-1]:= S[I];
Shell_NotifyIcon (NIM_MODIFY, @MyTray);
end;
procedure DelTray;
begin
MyTray.uFlags := 0;
Shell_NotifyIcon (NIM_DELETE, @MyTray);
end;
end.
启动程序的时候用InitTray(Handle),关闭程序之前用DelTray,改变图表的时候用ChangeTray。最小化的时候把Main Form的visible改称false就行了。
IORILI
2003-08-25
打赏
举报
回复
学习 帮你up
Flask
一个
页面多个
form
提交的
问题
及解决方法
出于简化交互的考虑,我们经常见到很多网站把登录页面和注册界面放在同
一个
页面上,而当我们使用Flask来实现时,却发现
问题
重重: 1、不管是哪个表单按下了提交按钮,总是提交第
一个
表单的数据; 2、当
一个
表单数据...
关于asp.net只能有
一个
form
标签
问题
起因:
一个
用户自定义搜索控件,里面包含
一个
表单,因为要用到服务器端控件。但,在包含用户控件的页面也有服务器控件,也要
一个
form
表单。出错:
一个
页面只能有
一个
form
标签。
问题
解决:把自定义控件中的
form
...
form
表单中只有
一个
input时,按回车键后表单自动提交(
form
表单的
一个
小坑)
最近在给公司改项目时发现
一个
问题
,按钮绑定回车事件后按回车表单执行js方法后表单自动提交刷新,先执行了js的方法后自动提交表单,使它相当于没有执行js方法,查阅资料得知在
一个
form
表单中,若只有
一个
input,按...
关于
form
表单传值中文乱码
问题
解答
关于
form
表单传值中文乱码
问题
解答 在写jsp项目时发现通过
form
的input传中文值时乱码,后来查询资料得知原因及解决办法如下: 传值的请求方式分为 1. get 2. post 而get会乱码,post不会,常见的有通过URL传参是get...
React 项目中使用AntDesign框架时处理同
一个
页面使用多个
Form
表单的
问题
React 项目中同
一个
页面使用多个
Form
表单,如果直接在Render中使用多个Forn,在提交某
一个
表单时会同时触发其他表单的提交事件,因此可以使用函数式的方法return出
Form
组件,然后再Render中引用,从而使页面上的
Form
...
Delphi
5,392
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章