При получении фокуса TEdit выделяет весь текст (AutoSelect=True), но устанавливает каретку в конец строки, и если строка большая, то она прокручивается и начала уже не видно. Мне надо, чтобы вся строка в TEdit была выделена, но каретка находилась слева от выделенного текста (в самом начале строки). Надеюсь понятно изложил.

Как это сделать?

Код

Edit1.SetFocus; edit1.SelStart:=0;

тока таким образом выделение с текста убирается(
если вызвать селектол то курсор опять в конец ходить и хз как убрать это сама процедура селектол выглядит так
SendMessage(Handle, EM_SETSEL, 0, -1);
как не эксперементировал с параметрами не вышло(

Код

With Edit1 Do  Begin   SelStart:=0;   SelLength:=Length(Text));  End; {With}

Song и чё?
ты эфект смотрел?
Тотже то и при SelectAll

FRAGNATIC
ну попробуй в ворде хотя бы сделать так: выдели там строчку клавиатурой, но так чтобы курсор был слева

Song
Ну у мя и в дэлфи (в ИДЭ ) нормально получается выделеть стркоу слева на право чтобы курсор был слева) программно у мя так не выходит) как и в том примере что ты дал(

Цитата

Ну у мя и в дэлфи (в ИДЭ ) нормально получается выделеть стркоу слева на право чтобы курсор был слева) программно у мя так не выходит) как и в том примере что ты дал(

Вот именно, если выделить самому, то получается, значит можно и программно сделать. Но как?

ДЫМ
Вообщем копай исходники TMemo ! В нём это тож можнО! Посмотри как всё это работает! А ещё лучше сразу исходники винды)

Это сообщение отредактировал(а) FRAGNATIC - 2.8.2005, 02:52

Цитата(FRAGNATIC @ 2.8.2005, 01:25)

Song Ну у мя и в дэлфи (в ИДЭ ) нормально получается выделеть стркоу слева на право чтобы курсор был слева) программно у мя так не выходит) как и в том примере что ты дал(

Позволю себе предположить, что это "своё выделение", ну т.е. не то которое реализуется стандартными MS edit контролами.
А своего-то можно наделать, и каретка здесь вовсе не причём..

На вот

Код

type   TForm1 = class(TForm)     Edit1: TEdit;     procedure EditHighlight(Var Msg: TWMCtlColorEdit); message WM_CTLCOLOREDIT;   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} Procedure TForm1.EditHighlight(Var Msg: TWMCtlColorEdit); Begin  inherited;  With Msg Do IF ChildWnd = Edit1.Handle then   Begin    SetTextColor(ChildDC,ColorToRGB(ClWindow));    SetBkColor(ChildDC,ColorToRGB(ClHighLight));    SendMessage(ChildWnd,EM_SETSEL,0,0);    End; {IF} End;

Курсор перемещается, но и выделение пропадает

У меня появилось , очень хорошая идея, сэмулировать нажатие клавы, т.е.

Курсор в правое крайнее положение, и потом допустим shift+home и выделенно и курсор слево,
с клавы все на ура, а вот программно попробуй, не обрадуешься,
почемуто вместо нажать шифт, нажать хом, отпустить хом(home), отпустить шифт,
срабатывает нажать - отпустить шифт, нажать - отпустить хом, нажать - отпустить шифт, почему так????? Хотя с буквами и цифрами все правильно нажимается. Использовал keybd_event.

Это сообщение отредактировал(а) Romikgy - 2.8.2005, 12:25

Цитата(Romikgy @ 2.8.2005, 09:55)

Курсор перемещается, но и выделение пропадает

:blink:

у меня всё ок. Ничего не пропадает.

Цитата(Song @ 2.8.2005, 10:36)

у меня всё ок. Ничего не пропадает.

Да действительно ничего не пропадает, не весь код скопировал, только мааааленький трабл, после этого попробуй чет поменять или посмотреть конец текста или середину Да и ввод шифорот на выворот, хотя если автору это подходит, вопросов нет

Цитата(Romikgy @ 2.8.2005, 13:28)

Да и ввод шифорот на выворот

ну а как ты хотел, если ему нужно чтобы курсор был в начале?
Ведь ввод идёт не от девы Марии, а от курсора

Я никак не хотел, вопрос то не мой