請問如何讓 Mouse 粘著 Button 10 秒後才移動 謝謝 發表人 - WENBERG 於 2003/01/13 18:08:57

Hi wenberg兄您好, 試試這段:

放一顆Timer先設定好時間
MyRect : TRect;    procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var
 lpWRect: TRect;      // window coordinates
 lpCPoint: TPoint;    // cursor coordinates
begin
     {retrive the panel coordinates}
     GetWindowRect(Button1.Handle, lpWRect);         {retrive the cursor position}
     GetCursorPos(lpCPoint);         {display the cursor position in terms of the panel}
     Windows.ScreenToClient(Button1.Handle,lpCPoint);         {confine the cursor within the panel}
     lpWRect.Right := lpWRect.Left   1;
     lpWRect.Bottom := lpWRect.Top   1;
     ClipCursor(@lpWRect);
end;
//
//
//
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Timer1.Enabled := False;
   ClipCursor(@MyRect);
end;
//
//
//
procedure TForm1.FormCreate(Sender: TObject);
begin
   GetClipCursor(MyRect);
end;
//
//
//
procedure TForm1.Button2Click(Sender: TObject);
var lpWRect: TRect;      
begin
   Timer1.Enabled := True;
   GetWindowRect(Button1.Handle, lpWRect);
   ClipCursor(@lpWRect);
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

function FunctionDetect (LibName, FuncName: String; var LibPointer: Pointer): boolean; var LibHandle: tHandle; begin  Result := false;  LibPointer := NIL;   if LoadLibrary(PChar(LibName)) = 0 then exit;   LibHandle := GetModuleHandle(PChar(LibName));   if LibHandle <> 0 then   begin    LibPointer := GetProcAddress(LibHandle, PChar(FuncName));    if LibPointer <> NIL then Result := true;   end; end;    procedure TForm1.Button1Click(Sender: TObject); var xBlockInput : function (Block: BOOL): BOOL; stdcall; begin  if FunctionDetect ('USER32.DLL', 'BlockInput', @xBlockInput) then  begin   xBlockInput (True);      Sleep(3000);          xBlockInput (False);   end; end;  

引言: Mouse 粘著 Button 10 秒後才移動