Mouse position und klick an anderen Rechner Senden

[davtix]

neu
unter -> procedure TForm1.ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket);

Code:

//nur maus bewegen
   SetCursorPos(Mx,My);

   if (mRk = 1) and (mLk = 0) then
    begin
     mouse_event(MOUSEEVENTF_RIGHTDOWN, Mx, My, 0, 0);
     mouse_event(MOUSEEVENTF_RIGHTUP, Mx , My, 0, 0);
    end;

   if (mLk = 1) and (fup.prpa.MemmLk = 0) then mouse_event(MOUSEEVENTF_LEFTDOWN, Mx, My, 0, 0);
   if (mLk = 0) and (fup.prpa.MemmLk = 1) then mouse_event(MOUSEEVENTF_LEFTUP, Mx, My, 0, 0);



   //letzten klickzustand speichern
   fup.prpa.MemmLk := mLk;

weiter habe ich geändert in mouse down & mouse move & mouse klick

Code:

var Shift: TShiftState;<-bei button klick

if ( einstF.CheckBox16.Checked = true) then
 begin
  M := einstF.rkGlassButton5.ScreenToClient( mouse.CursorPos );
  if ssRight in Shift then  mRk := 1  else mRk := 0;
  if ssLeft  in Shift then  mLk := 1  else mLk := 0;

  MouseEvents(1, M.X, M.Y , mRk, mLk );
 end;

Jetzt funktionierts flüssig und ziehen/ drag and drop ist ebenso möglich