Edit без фокуса

← →
Романов Р.В. © (2003-01-21 16:26) [0]

Возможно ли без написания потомка сделать так чтобы компонент TEdit (в частности) не получал фокус при клике на нем мышкой. Может какие нибудь стили подправить надо RunTime.

← →
KDenis © (2003-01-21 16:46) [1]

Попробуй для этого едита написать такой обработчик события TForm1.Edit1Click: button1.SetFocus;

А если ты просто нехочешь, чтоб текст в едите изменяли, то его свойство ReadOnly должно быть false

← →
KDenis © (2003-01-21 16:47) [2]

<<должно быть false>>
Тоесть true

← →
Романов Р.В. © (2003-01-21 16:51) [3]

Я хочу едит не получал фокус. ReadOnly у него уже давно поставлен. TLabel не хочу ставить по эстетическим соображениям, он не гармонирует с другими Editami на форме.

← →
KDenis © (2003-01-21 16:56) [4]

А с помощью ApplicationEvents пробовал?

← →
Smithson © (2003-01-21 16:59) [5]

А если .Disable := True;

← →
Skier © (2003-01-21 17:00) [6]

При клике на нём мышкой вызывай SelectNext(...)
Не поможет ?

← →
uw © (2003-01-21 17:04) [7]

Рассмотрение разных системных программ показывает, что в таких компонентах, как Memo, Edit, разработчики заботятся только о том, чтобы TabStop было False и ReadOnly было True. И еще серенький цвет. И все это выглядит нормально.

← →
Mike Kouzmine (2003-01-21 17:04) [8]

Создай глоб перемену : TWinControl На всех контролах (креме этого эдита) на onExit присваивай этой переменной значение Sender as TWinControl, а на onEnter edita поставь ИмяПерем.SetFocus

← →
han_malign © (2003-01-21 17:14) [9]

ControlStyle:=ControlStyle+[csNoStdEvents];
TabStop:=false;

← →
error 2k © (2003-01-21 17:15) [10]

Mike Kouzmine, чего?
в событии OnEnter этого компонента ставишь
FindNextControl(Sender as TWinControl, true true, false).SetFocus;

← →
REA © (2003-01-21 17:18) [11]

И StaticText не гармонирует?

← →
error 2k © (2003-01-21 17:22) [12]

REA, согласен:)

>han_malign. А все равно мышкой выбирается.

Вот в принципе все что нужно было сделать.
SetWindowLong(edPayAll.Handle, GWL_STYLE, GetWindowLong(edPayAll.Handle, GWL_STYLE) or WS_DISABLED);

PS: Плохо когда MSDN нет под рукой.

Все равно не здорово. Табуляция застревает.

edPayAll.TabStop := False;

Здорово!

← →
Спрашивающий (2003-01-22 01:40) [18]

А не проще ли при переходе на Edit1 передавать фокус ввода очередному элементу ну скажем Edit2.SetFocus и все?

Edit без фокуса Найти похожие ветки