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

[jumphigh]

1.对标题栏操作
修改close图标
添加图标
....

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

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

end; //屏幕左下脚



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

why?

[sinsky]

用现成的控件不就是了？

[ywpg]

关注

[jumphigh]

第二个问题已经解决
用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;

[jumphigh]

没搞懂原理光用控件如何长经验值呀

[dandycheung]

这类小控件大多都带源代码，仔细看吧。

[Wingsun]

基本的原理是截获Windows的消息，然后在作出绘制和响应的处理，主要截获的消息是系统取得绘制和HITEST等消息，具体的可以参阅Windows的消息说明。

[jumphigh]

谁能给我个例子

[Kingron]

提问者：如要继续讨论请定期提前贴子，反之请结束贴子，否则将在两周之内被强制结束或者删除。

[BaldZhang]

NCPaint的意思是Not Client Paint消息，这些包括标题条，边框等等地方，
用GetWindowDC，然后要怎么办，就看你自己的了。。。