Запрет на получение фокуса в Edit и Combobox

@taras atavin · Регистрация: 24.11.2009

Author24 — интернет-сервис помощи студентам

Есть Editы и Comboboxы, как прогпрамно разрешать и запрещать им получение фокуса? Простой

Delphi

1	Enabled:=false;

меняет цвета текста и фона на серый, а мне надо, чтоб текст оставался чёрным, а фон белым, но запретить фокус и редактирование. А

Delphi

1	ReadOnly:=true;

позволяет курсор в Edit всё таки поставить и даже перемещать его там, невозмодно только редактирование, а я хочу, чтоб не вставал даже курсор.

@S9 · 28.05.2011, 17:11

Может этот метод покажется странным, поэтому просьба не критиковать его. Попробуй над Edit сделать курсор в виде одного пиксела (имею ввиду создать новый курсор). Если цвет курсора подобрать так, чтоб он сливался с цветом Edit то его естественно видно не будет

@gry-dmitrij · 17.04.2012, 15:50

Недавно столкнулся с такой же проблемой. Выход нашел такой:

Delphi

TMain = class(TForm)
edtIndicate: TEdit;
 
procedure TMain.edtIndicateExit(Sender: TObject);
begin
edtIndicate.Enabled:=true;
end;
 
procedure TMain.edtIndicateEnter(Sender: TObject);
begin
edtIndicate.Enabled:=false;
end;

@taras atavin · 18.04.2012, 20:03 **[ТС]**

Выключать по получении фокуса?

@gry-dmitrij · 18.04.2012, 20:29

Сообщение от taras atavin

Выключать по получении фокуса?

Да, именно так. Причем при выключении фокус теряется, после этого включаем. При этом ни курсор не отображается в Edit, ни изменить ничего нельзя

@S9 Волшебник 656 / 259 / 88 Регистрация: 18.12.2010 Сообщений: 545
	28.05.2011, 17:11	2
	Может этот метод покажется странным, поэтому просьба не критиковать его. Попробуй над Edit сделать курсор в виде одного пиксела (имею ввиду создать новый курсор). Если цвет курсора подобрать так, чтоб он сливался с цветом Edit то его естественно видно не будет 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	18.04.2012, 20:03 [ТС]	4
	Выключать по получении фокуса? 0

@gry-dmitrij 0 / 0 / 0 Регистрация: 26.10.2016 Сообщений: 3
	18.04.2012, 20:29	5
	Сообщение от taras atavin Выключать по получении фокуса? Да, именно так. Причем при выключении фокус теряется, после этого включаем. При этом ни курсор не отображается в Edit, ни изменить ничего нельзя 0