社区
Delphi
帖子详情
关于Form的一个问题
sirliner
2003-08-25 01:43:50
form如果没有设成主窗体,那么在最小化时会缩在桌面的左下角.
有没有办法让它停在任务栏上.
...全文
84
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、当一个表单数据验证出错时,两个表单都出现了错误提示; 解决方法1:为你的不同表单里的SubmitField定义不同的名字,然后view.py中调用 ....
form
1 =
Form
1()
form
2 = ...
关于asp.net只能有一个
form
标签
其实以前也遇到同样的
问题
,没去考虑太多,没想到今天再次遇上。
问题
起因:一个用户自定义搜索控件,里面包含一个表单,因为要用到服务器端控件。但,在包含用户控件的页面也有服务器控件,也要一个
form
表单。出错:一个页面只能有一个
form
标签。
问题
解决:把自定义控件中的
form
去掉,在引用的页面把用户自定义控件放在该页的
form
表单里,
问题
解决。但,还是不清楚,既然一个页面只能有一个
form
form
表单中只有一个input时,按回车键后表单自动提交(
form
表单的一个小坑)
最近在给公司改项目时发现一个
问题
,按钮绑定回车事件后按回车表单执行js方法后表单自动提交刷新,先执行了js的方法后自动提交表单,使它相当于没有执行js方法,查阅资料得知在一个
form
表单中,若只有一个input,按回车键表单会自动提交,但是当表单中存在多个input时,按回车键不会执行任何操作,这是
form
表单的一个特性。 解决这个
问题
有四种方法,如下: 第一种方法,把表单去掉,这是最管用,但...
关于
form
表单传值中文乱码
问题
解答
关于
form
表单传值中文乱码
问题
解答 在写jsp项目时发现通过
form
的input传中文值时乱码,后来查询资料得知原因及解决办法如下: 传值的请求方式分为 1. get 2. post 而get会乱码,post不会,常见的有通过URL传参是get,如 url?username=1。
form
一般为get传值,可在
form
的method属性改为post <
form
action="" method="post"></
form
> ...
React 项目中使用AntDesign框架时处理同一个页面使用多个
Form
表单的
问题
React 项目中同一个页面使用多个
Form
表单,如果直接在Render中使用多个Forn,在提交某一个表单时会同时触发其他表单的提交事件,因此可以使用函数式的方法return出
Form
组件,然后再Render中引用,从而使页面上的
Form
相互独立 代码如下: import React, { Component } from 'react'; import {
Form
, Button,...
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章