Курсор по SetFocus

← →
SveTTT (2007-09-30 09:21) [0]

Подскажите пожалуйста как перевести фокус типа Edit1.SetFocus; , но только чтобы курсор становился за последним символом не выделяя всех всех введенных символов.

← →
engine © (2007-09-30 09:22) [1]

Edit1.AutoSelect := false;

← →
SveTTT (2007-09-30 09:26) [2]

Спасибо, в очердной раз! ;-)

← →
SveTTT (2007-09-30 09:29) [3]

Еще поправка, курсор становится первым, а надо после последнего символа.

← →
Leonid Troyanovsky © (2007-09-30 09:36) [4]

> SveTTT (30.09.07 09:29) [3]

> Еще поправка, курсор становится первым, а надо после последнего
> символа.

with Edit do SelStart := Length(Text);

--
Regards, LVT.

with Edit1 do Perform(EM_SETSEL, Length(Text), Length(Text));

← →
SveTTT (2007-09-30 10:01) [6]

Спасибо, Leonid Troyanovsky!

Курсор по SetFocus Найти похожие ветки