Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.27;
Скачать: CL | DM;

Вниз

выделение текста в EDITBOX   Найти похожие ветки 

 
uli   (2005-04-06 08:16) [0]

Подскажите, плиз, как реализовать выделение текста при переходе в EDITBOX если он не пуст?


 
ECM ©   (2005-04-06 08:52) [1]

procedure TMainForm.EditBox1Enter(Sender: PObj);
begin
 EditBox1.SelectAll;
end;


 
uli   (2005-04-06 09:03) [2]

Уточнение: EDIT"ов много, можно ли реализовать это при помощи одной процедуры для всех? И как в этом случае получить значение text текущего эдита для проверки его пустоты?


 
ECM ©   (2005-04-06 09:10) [3]

procedure TMainForm.EditBox1Enter(Sender: PObj);
var
 S: String;
begin
 S := PControl(Sender).Text;
 PControl(Sender).SelectAll;
end;



Страницы: 1 вся ветка

Текущий архив: 2005.11.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
14-1130956736
Adil
2005-11-02 21:38
2005.11.27
Midlet na Java i problema s Nokia


3-1129300957
Woolen
2005-10-14 18:42
2005.11.27
"sql state 42000 error code 0" при поиске по GUID через dbExpress


14-1130871398
VEG
2005-11-01 21:56
2005.11.27
Беспроводные сети


14-1131115835
ArtemESC
2005-11-04 17:50
2005.11.27
Загрузочный сектор


1-1131007884
Vetalich
2005-11-03 11:51
2005.11.27
ListBox