如何对form标题的标题栏操作?另外还有一个问题详见内?请大家都来看看

jumphigh 2000-08-28 09:46:00
1.对标题栏操作
修改close图标
添加图标
....

2.想在程序中实现点击按钮程序最小化,采取入下方法

procedure Tbar.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=caMinimize; //结果并不是我所要的最小化到任务栏,而是最下化到

end; //屏幕左下脚



使用 ShowWindow()函数
可是试过所有Parameters
均只能实现最小化到屏幕左下脚

why?
...全文
225 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
BaldZhang 2001-05-25
  • 打赏
  • 举报
回复
NCPaint的意思是Not Client Paint消息,这些包括标题条,边框等等地方,
用GetWindowDC,然后要怎么办,就看你自己的了。。。
Kingron 2001-05-25
  • 打赏
  • 举报
回复
提问者:如要继续讨论请定期提前贴子,反之请结束贴子,否则将在两周之内被强制结束或者删除。
jumphigh 2000-08-29
  • 打赏
  • 举报
回复
谁能给我个例子
Wingsun 2000-08-29
  • 打赏
  • 举报
回复
基本的原理是截获Windows的消息,然后在作出绘制和响应的处理,主要截获的消息是系统取得绘制和HITEST等消息,具体的可以参阅Windows的消息说明。
dandycheung 2000-08-29
  • 打赏
  • 举报
回复
这类小控件大多都带源代码,仔细看吧。
jumphigh 2000-08-29
  • 打赏
  • 举报
回复
没搞懂原理光用控件如何长经验值呀
jumphigh 2000-08-28
  • 打赏
  • 举报
回复
第二个问题已经解决
用sendmessage(handle,WM_SYSCOMMAND,SC_ICON,0);
还剩第一个问题

大家快来呀
有人给我提示
可是我还是高不懂

TForm1 = class(TForm)
private
...
procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT;//这一行要自己加!
...
end;

procedure TForm1.WMNCPaint(var Message: TMessage);
...
begin
hrgn:=Message.wParam;
...
..
end;


ywpg 2000-08-28
  • 打赏
  • 举报
回复
关注
sinsky 2000-08-28
  • 打赏
  • 举报
回复
用现成的控件不就是了?
没法下载,到这里折腾一把试试。 本文由abc2253130贡献 doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT,或下载源文件到本机查看。 C#(WINFORM)学习 一、 C#基础 基础 类型和变量 类型和变量 类型 C# 支持两种类型:“值类型”和“引用类型”。值类型包括简单类型(如 char、int 和 float 等)、枚举类型和结构类型。引用类型包括类 (Class)类 型、接口类型、委托类型和数组类型。 变量的类型声明 变量的类型声明 每个变量必须预先声明其类型。如 int a; int b = 100; float j = 4.5; string s1; 用 object 可以表示所有的类型。 预定义类型 下表列出了预定义类型,并说明如何使用。 类型 object 说明 所有其他类型的最终 基类型 字符串类型; 字符串是 Unicode 字符序列 8 位有符号整型 16 位有符号整型 32 位有符号整型 64 位有符号整型 示例 object o = null; 范围 string sbyte short int long string s = "hello"; sbyte val = 12; short val = 12; int val = 12; long val1 = 12; -128 到 127 -32,768 到 32,767 -2,147,483,648 2,147,483,647 -9,223,372,036,854,775,808 到 第1页 C#(WINFORM)学习 long val2 = 34L; 到 9,223,372,036,854,775,807 byte ushort 8 位无符号整型 16 位无符号整型 byte val1 = 12; ushort val1 = 12; uint val1 = 12; uint 32 位无符号整型 uint val2 = 34U; ulong val1 = 12; ulong val2 = 34U; ulong 64 位无符号整型 ulong val3 = 56L; ulong val4 = 78UL; float 单精度浮点型 float val = 1.23F;7 位 double val1 = 1.23; double 双精度浮点型 double val2 = ±5.0 × 10?324 ±1.7 × 10 308 0 到 255 0 到 65,535 0 到 4,294,967,295 0 到 18,446,744,073,709,551,615 ±1.5 × 10?45 ±3.4 × 10 38 到 到 4.56D;15-16 布尔型;bool 值或为 真或为假 字符类型;char 值是 一个 Unicode 字符 精确的小数类型, 具有 28 个有效数字 bool val1 = true; bool val2 = false; char val = 'h'; decimal val = bool char decimal DateTime ±1.0 × 10?28 ±7.9 × 10 28 到 1.23M;28-29 变量转换 简单转换: float f = 100.1234f; 可以用括号转换: short s = (short)f 也可以利用 Convert 方法来转换: string s1; s1=Convert.ToString(a); MessageBox.Show(s1); 常用 Convert 方法有: 第2页 C#(WINFORM)学习 C# Convert.ToBoolean Convert.ToByte Convert.ToChar Convert.ToDateTime Convert.ToDecimal Convert.ToDouble Convert.ToInt16 Convert.ToInt32 Convert.ToInt64 Convert.ToSByte Convert.ToSingle Convert.ToString Convert.ToUInt16 Convert.ToUInt32 Convert.ToUInt64 备注 Math 类 常用科学计算方法: C# Math.Abs Math.Sqrt Math.Ro

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧