Form顶部的最大化、最小化所在的地方,Form.Caption显示的地方,它属于窗体部分吗?鼠标的onMouseDown,onClick,onMouseUp,onMouseMove事件都没反应,这一部分有什么相关事件呢?
解决方案 »
- Delphi 7 开启COMM问题,
- delphi7 中Access violation at address 0012F88F.错误后有提示0012F9DB错误,其他操作都能正常使用
- 抓了个包,请问cookie里面的数据怎么模仿
- 求助,输入之后遇到显示不全问题。
- 神龙卡开发ktv点歌系统,怎样捕捉一首歌结束的信号,播放下一首?
- 方法重载
- 问一个奇怪的问题
- 单击dbgrid的title,按标题排序,我的语句不行,why??????高分赠!!!!
- 在多线程里为什么可以使用COM Object,却不能使用MTS Object?
- 师父们呢?
- 请问有红外通讯的控件或例程吗?!!
- 怎样在ActiveForm中调用IE????非高手莫入!!!!
鼠标移动,单击,双击,在sdk里有详细说明
private
{ Private declarations }
procedure WMNCRButtonDown(var Msg : TWMNCRButtonDown); message WM_NCRBUTTONDOWN;procedure TForm1.WMNCRButtonDown(var Msg : TWMNCRButtonDown);
begin
if (Msg.HitTest = htCaption) then
begin
showmessage('caption');
Msg.HitTest := 0;
end
else if (Msg.HitTest =HTMINBUTTON) then
begin
showmessage('minbutton');
Msg.HitTest := 0;
end
else if (Msg.HitTest =HTMAXBUTTON) then
begin
showmessage('MAXbutton');
Msg.HitTest := 0;
end
else if (Msg.HitTest = HTCLOSE) then
begin
showmessage('close');
Msg.HitTest := 0;
end
else
inherited;
end;
TForm1 = class(TForm)
public
procedure WMEXITSIZEMOVE(var Message: TMessage);
message WM_EXITSIZEMOVE;
end;
var
Form1: TForm1;implementationprocedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
if self.Top <0 then self.Top := 0;
end;