Control.Enable := False Но, чтоб визуально не изменился.

← →
12 © (2011-01-13 09:15) [0]

Извините за тупой/странный вопрос.
Есть задача, все TEdit, TComboBox и т.п. делать недоступными, но: Чтоб цвет не менялся.
"..получено много нареканий на это. Очень неудобно читать.."
Как бы так сделать быстро и для всех контрлов?
с наскока не получилось докопаться

Быстро могу предложить
Control.Enable <=> Enable(Control)
а там что-то типа
procedure TForm1.Enable
Control.OnEnter := некий другой контрол . SetFocus;

т.е. просто не даем ему фокус и все

← →
sniknik © (2011-01-13 09:22) [1]

положи все на форму и дизейбли ее.

← →
Ega23 © (2011-01-13 09:24) [2]

ReadOnly := True; ?

← →
12 © (2011-01-13 09:35) [3]

> ReadOnly := True; ?

не у всех есть

> положи все на форму и дизейбли ее.

они вперемешку, выборочно надо, от прав зависит

← →
Palladin © (2011-01-13 09:42) [4]

убирай обработчик

← →
12 © (2011-01-13 10:16) [5]

> убирай обработчик

запомнить, убрать, на закрытие вернуть?

в принципе, тоже самое
Control.Enable <=> Enable(Control)
потом если есть onEnter присвоить убрать фокус
иначе если есть onMouseDown (У меня там еще TLabel, с эффектом, как гиперссылка) присвоить убрать фокус

блин, нифига не вспомню потом зачем все это :)

← →
QAZ (2011-01-13 10:32) [6]

Удалено модератором

← →
12 © (2011-01-13 10:42) [7]

> потом получиш много нареканий что ".. нажимаеш,а ничего
> не происходит..."

кстати, да..

но тогда просто переделать

procedure TForm1.Enable как
begin end;и все :)

← →
han_malign (2011-01-13 10:53) [8]

WM_UPDATEUISTATE
...
UISF_ACTIVE
Windows XP: A control should be drawn in the style used for active controls.

← →
12 © (2011-01-13 11:05) [9]

> WM_UPDATEUISTATE
> ...
> UISF_ACTIVE

http://msdn.microsoft.com/en-us/library/ms646361%28v=vs.85%29.aspx
все варианты попробовал
// edt1.Enabled := False;// так тоже, предварительно
SendMessage(edt1.Handle, WM_UPDATEUISTATE, XXXX, 0);
не получается

← →
DiamondShark © (2011-01-13 11:44) [10]

> Есть задача, все TEdit, TComboBox и т.п. делать недоступными,
> но: Чтоб цвет не менялся.

Плохая идея.
1. Визуальный фидбэк о возможностях контролов должен быть.
2. Даже нередактируемые контролы должны быть доступны, если они содержат интересную информацию, которую можно использовать. Например, нередактируемый текстбох должен допускать возможность ткнуть в него, выделить текст и скопировать в клипборд
3. Для нередактируемых полей нет смысла использовать сложные контролы. Все нередактируемые поля можно (нужно) заменить на простой текст (с учётом п.2).

← →
QAZ (2011-01-13 14:20) [11]

Удалено модератором

← →
_Юрий (2011-01-13 20:15) [12]

Положить на панель, панели сделать Enable := False

ну и конечно [10]

> Положить на панель, панели сделать Enable := False

Ты сам попробуй с таким извратом поработать, причем долго и насильственно.

← →
Дмитрий Белькевич (2011-01-14 10:28) [14]

> Ты сам попробуй с таким извратом поработать, причем долго
> и насильственно.

Сама постановка задачи - изврат. А решение - [12] - то, что автору нужно. Я бы добавил хинты к кнопкам, что бы не читать на кнопках, а надписи на кнопках заменил на пиктограммы.

← →
Дмитрий Белькевич (2011-01-14 10:29) [15]

> Есть задача, все TEdit, TComboBox

Сорри, не о том речь :)

> Я бы добавил хинты к кнопкам, что бы не читать на кнопках,
> а надписи на кнопках заменил на пиктограммы.

Повбывал бы.

Control.Enable := False Но, чтоб визуально не изменился. Найти похожие ветки