B bitgege Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-28 #1 听说用ApplicationEvents1这件控件可以实现？？ 但是具体怎么写才能实现呢
B bitgege Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-28 #2 procedure TForm1.ApplicationEvents1Minimize(Sender: TObject); begin showmessage('ok'); end; procedure TForm1.FormCreate(Sender: TObject); begin application.OnMinimize:=ApplicationEvents1Minimize; end; end. 以上代码不行啊？？ 最小化后并没有弹出 'ok'， 当最小化到任务栏时，我用书标点击才发生？？
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject); begin showmessage('ok'); end; procedure TForm1.FormCreate(Sender: TObject); begin application.OnMinimize:=ApplicationEvents1Minimize; end; end. 以上代码不行啊？？ 最小化后并没有弹出 'ok'， 当最小化到任务栏时，我用书标点击才发生？？
C chengangsir Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-28 #3 application.Minimize;
B bitgege Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-28 #4 application.Minimize; ???说详细些好吗
P plane822 Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-28 #6 //先声明 Procedure WMSysCommand(Var message: TMessage); Message WM_SYSCOMMAND; Procedure Tmain0.WMSysCommand(Var message: TMessage); Begin If (Message.WParam = SC_MINIMIZE) Then Begin { Showwindow(Handle, SW_Hide); ShowWindow(Application.Handle, SW_HIDE);} {你自己要作的事} End Else Inherited; End;
//先声明 Procedure WMSysCommand(Var message: TMessage); Message WM_SYSCOMMAND; Procedure Tmain0.WMSysCommand(Var message: TMessage); Begin If (Message.WParam = SC_MINIMIZE) Then Begin { Showwindow(Handle, SW_Hide); ShowWindow(Application.Handle, SW_HIDE);} {你自己要作的事} End Else Inherited; End;
B bitgege Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-28 #8 WM_LBUTTONDBLCLK 这是双击， 那么单击是什么呢？
B bitgege Unregistered / Unconfirmed GUEST, unregistred user! 2003-06-28 #9 加了一个popup菜单为什么按下右键却没菜单弹出?? procedure TForm1.RButtonPopup(var msg: Tmessage); begin case msg.LParam of WM_RBUTTONDOWN: popupmenu1.AutoPopup:=true; end;
加了一个popup菜单为什么按下右键却没菜单弹出?? procedure TForm1.RButtonPopup(var msg: Tmessage); begin case msg.LParam of WM_RBUTTONDOWN: popupmenu1.AutoPopup:=true; end;
