Существуют свойства SelStart - символ с которого начинается выделение и SelLength - длинна выделения (кол-во символов).
Выложите на форму TEdit, поставьте у него свойство AutoSelect=False. Выложите TButton. Создайте событие onClick:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.SelStart:=1;
Edit1.SelLength:=4;
Edit1.SetFocus;
end;
Искусственный облицовочный камень. Посвященного Гоголю.
artbeton.ru
Просмотров: 3540
Copyright © 2008-2012 Программирование на Delphi для начинающих и не только
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации
Хостинг от uCoz