但是視窗上有label，image這些控制元件，我想滑鼠左鍵不管點擊哪都可以關閉，但是最開始點擊label，image控制元件的時候怎么不回應，點視窗其他地方，再去點label或者image又會回應？
procedure WMmouse(var Msg: TMessage); message WM_LBUTTONDOWN;用的這個訊息。
uj5u.com熱心網友回復：
vcl下，所有的控制元件點擊事件都掛到FormClick事件FMX，控制元件有個HitTest,可以穿透控制元件
uj5u.com熱心網友回復：
在form的onlick事件中，點擊image也不回應啊，我想就是滑鼠左鍵不管點擊視窗哪個地方都能執行，有沒有什么其他方法啊？
uj5u.com熱心網友回復：
貼出你的代碼看看
uj5u.com熱心網友回復：
unit Unit1;
interface
uses
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.
我現在就試試，就是想不管點擊視窗哪里它都能執行一段代碼，不管是視窗本身還是點擊的控制元件
uj5u.com熱心網友回復：
訊息截獲處理
uj5u.com熱心網友回復：
界面上放一個控制元件ApplicationEvents1
procedure TForm5.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
if Msg.Message = WM_LBUTTONDOWN then
caption := DateTimeToStr(now());
end;
uj5u.com熱心網友回復：
哦 謝謝 以前看過這個控制元件，用的時候就想不起來了。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/97409.html
標籤：VCL組件開發及應用