unit uMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, shellapi, Menus, Buttons, ExtCtrls; const mousemsg = wm_user 1; iid = 100; type TForm1 = class (TForm) MainMenu1: TMainMenu ; Panel1: TPanel; SpeedButton1: TSpeedButton; SpeedButton6: TSpeedButton; SpeedButton7: TSpeedButton; SpeedButton8: TSpeedButton; SpeedButton9: TSpeedButton; SpeedButton10: TSpeedButton; PopupMenu1: TPopupMenu; exit1: TMenuItem; SpeedButton2: TSpeedButton; procedure SQLLMClick (Sender: TObject); procedure N2Click (Sender: TObject); procedure SpeedButton1Click (Sender: TObject); procedure FormClose (Sender: TObject; var Action: TCloseAction); procedure FormCreate (Sender: TObject); procedure exit1Click (Sender: TObject); private {Private declarations} procedure MouseMessage (Var Message: TMessage); Message Mousemsg; Public {public declarations} procedure exec (sender: Tobject); end; var form1: TForm1; ntida: TNotifyIcondataA; implementation {$ R * .DFM} procedure TForm1.mousemessage (var message: tmessage); var mousept: TPoint; begin inherited; if message.LParam = wm_rbuttonup then begin getcursorpos (mousept); popupmenu1.popup ( mousept.x, mousept.y); end; if message.LParam = wm_lbuttonup then begin ShowWindow (Handle, SW_SHOW); ShowWindow (Application.handle, SW_SHOW); SetWindowLong (Application.Handle, GWL_EXSTYLE, not (GetWindowLong (Application.handle , GWL_EXSTYLE) OR WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW)); END; Message.Result: = 0; End; Procedure TFORM1.MMCLOSE (Sender: Tobject; VAR Action: TcloseAction); begin action: = canone;
