[Delphi/WinAPI] SetCaretPos

[anGeee]

Помогите разобраться, как в Дельфи использовать процедуру SetCaretPos ...

[Пепел Феникса]

The SetCaretPos function moves the caret to the specified coordinates. If the window that owns the caret was created with the CS_OWNDC class style, then the specified coordinates are subject to the mapping mode of the device context associated with that window.

BOOL SetCaretPos(

int X, // horizontal position
int Y // vertical position
);


Parameters

X

Specifies the new x-coordinate of the caret.

Y

Specifies the new y-coordinate of the caret.



Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

Remarks

SetCaretPos moves the caret whether or not the caret is hidden.
The caret is a shared resource; there is only one caret in the system. A window can set the caret position only if it owns the caret.

вот у себя в Делфи нашел

[anGeee]

Ну я додумался прочитать это на МСДН точка ком )) А вот как ей пользоваться не придумал... Пытался как-то изменить положение курсора в мемо - не вышло... = (

[Пепел Феникса]

там идут абсолютнын координаты и они должны быть внутри вашего окна

[anGeee]

Ну если я правильно понимаю значение фразы "абсолютные координаты", то по идее должно быть так :

procedure TForm1.BitBtn9Click(Sender: TObject);
var x,x1,x2 : integer;
    y,y1,y2 : integer;
begin
  x1:=Form1.Left + Memo5.Left + PageControl1.Left + TabSheet7.Left;
  x2:=x1 + Memo5.Width;
  y1:=Form1.Top + Memo5.Top + PageControl1.Top + TabSheet7.Top;
  y2:=y1 + Memo5.Height;
  x:=random(x2-x1)+x1;
  y:=random(y2-y1)+y1;
  SetCaretPos(x,y);
  SetCursorPos(x,y);
  Memo5.SetFocus;
end;

Однако ничего не меняется.. Курсор попадает в мемо, а положение каретки не меняется..

[WMag]

Просто надо абсолютные координаты получать через ClientToScreen

var
p, p2: TPoint;
x, y: integer;
begin
  p.x := Memo5.Left;
  p.y := Memo5.Top;
  p := Form1.ClientToScreen(p);
  p2.x := Memo1.Width;
  p2.y := Memo1.Height;
  p2 := Form1.ClientToScreen(p2);

  x := random(p2.X - p.X) + p.X;
  y := random(p2.Y - p.Y) + p.Y;
  SetCaretPos(x, y);
  SetCursorPos(x, y);
  Memo5.SetFocus;
end;