但是窗口上有label,image这些控件,我想鼠标左键不管点击哪都可以关闭,但是最开始点击label,image控件的时候怎么不响应,点窗口其他地方,再去点label或者image又会响应?
procedure WMmouse(var Msg: TMessage); message WM_LBUTTONDOWN;用的这个消息。
procedure WMmouse(var Msg: TMessage); message WM_LBUTTONDOWN;用的这个消息。
解决方案 »
- Delphi 中 Date TimePicker 控件,如何限制用户输入的日期不能超过系统日期?
- CPU的BUG,DELPHI的BUG?
- Delphi人气狂飙群——Delphi技术咨询(群号:24819433)——正在狂飙中,欢迎各路豪杰加入!
- 怎么取得cxLookupComboBox对应keyFieldNames的值。。。。
- 为什么TabSheet的Enable属性设置为false却没用?
- bmp改成icon咋编
- 200分询问:有关MARC编辑程序的问题
- 各位大哥帮忙!!!!!!!!!!!!UP有分,大家出力
- 串口问题,VC版无人能解,诚征高人参与。
- Timage 显示不同大小图片如何做到缩小时不变形?且尽量大?
- 运行时程序如何读程序自身
- c翻译成delphi
FMX,控件有个HitTest,可以穿透控件
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, pngimage;type
TForm1 = class(TForm)
btn_1: TButton;
Button1: TButton;
lbl_1: TLabel;
img_1: TImage;
procedure btn_1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClick(Sender: TObject);
private
procedure WMmouse(var Msg: TMessage); message WM_LBUTTONDOWN;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}procedure TForm1.btn_1Click(Sender: TObject);
begin
ShowMessage(DateToStr(Now));
end;procedure TForm1.FormShow(Sender: TObject);
begin
btn_1.Visible := False;
btn_1.Enabled := True;
end;procedure TForm1.WMmouse(var Msg: TMessage);
begin
ShowMessage('123');
inherited;
end;end.
我现在就试试,就是想不管点击窗口哪里它都能执行一段代码,不管是窗口本身还是点击的控件
ApplicationEvents1procedure TForm5.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
if Msg.Message = WM_LBUTTONDOWN then
caption := DateTimeToStr(now());
end;