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

Вниз

Поставить все DBEdit в Enabled:=False;   Найти похожие ветки 

 
ruslan_as ©   (2002-02-13 11:16) [0]

Как в программе отключить все DBEdit (Enabled:=False). А то у меня их тут собралось около 60.


 
Крутов Алексей ©   (2002-02-13 11:28) [1]

Процедура для выставления свойства Enabled у DBEdit на форме.
Вызов процедуры такой: SetEnabledFalseToDBControls(Form1),
где Form1 - переменная типа TForm.
Код возможно придется немного подкорректировать, но идея, я
думаю, понятна. Удачи !

procedure SetEnabledFalseToDBControls(vWinControl:TWinControl;vDataSource:TDataSource);
procedure SetEnabledFalseForGroupControls(wc:TWinControl);
var i:integer;
c:TControl;
begin
if wc.ControlCount > 0 then
for i:=0 to wc.ControlCount-1 do
begin
c:=wc.Controls[i];
if c is TDBEdit then (c as TDBEdit).Enabled:=false;
if c is TWinControl then
SetEnabledFalseForGroupControls(c as TWinControl);
end;
end;
begin
SetEnabledFalseForGroupControls(vWinControl);
end;



 
Крутов Алексей ©   (2002-02-13 11:30) [2]

Извиняюсь, переменную vDatasource передавать в процедуру не надо.

procedure SetEnabledFalseToDBControls(vWinControl:TWinControl);
procedure SetEnabledFalseForGroupControls(wc:TWinControl);
var i:integer;
c:TControl;
begin
if wc.ControlCount > 0 then
for i:=0 to wc.ControlCount-1 do
begin
c:=wc.Controls[i];
if c is TDBEdit then (c as TDBEdit).Enabled:=false;
if c is TWinControl then
SetEnabledFalseForGroupControls(c as TWinControl);
end;
end;
begin
SetEnabledFalseForGroupControls(vWinControl);
end;


 
Юрий Зотов (M) ©   (2002-02-13 11:36) [3]

Если все DBEdit"ы имеют общий DataSet, то все гораздо проще - DisableControls.



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

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

Наверх




Память: 0.47 MB
Время: 0.009 c
7-90682
Ол11
2001-11-22 12:24
2002.02.28
Что предпочесть - плату PCI или LPT?


3-90509
dimonf
2002-02-04 19:58
2002.02.28
Подскажите плиз, как мне добавлять записи, в базу проверяя при этом, если она уже или нет?


4-90722
Black Wolf
2001-12-28 16:23
2002.02.28
Выбор информации подобно Event Viewer


3-90503
Demon ltd
2002-02-04 20:56
2002.02.28
Из db в dbf


1-90620
ray_wagner
2002-02-08 11:56
2002.02.28
ComboBox?