Caret در TEdit ؟

[sasan_vm]

سلام

نحوه set/get کردن caret position در TEdit چگونه است ؟

متشکرم.

[sasan_vm]

procedure GetCaret(H: THandle; var Col: Word);
begin
Col := LoWord(SendMessage(H, EM_GETSEL, 0, 0)) - SendMessage(H, EM_LINEINDEX, -1, 0);
end;
procedure SetCaret(H: THandle; var Col: Word);
begin
SendMessage(H, EM_SETSEL, Col, Col);
end;

[JAFO_IRAN]

سلام

مشخصه SelStart رو هم ببینید...

ارادت

[SYNDROME]

و در ادامه صحبت دوستمان
SelLength
و کمک می کند.
موفق باشید