Форум: "Основная";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
ВнизПоставить все DBEdit в Enabled:=False; Найти похожие ветки
← →
Крутов Алексей (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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c