Форум: "Базы";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
ВнизЕсть такая проблема. Найти похожие ветки
← →
P0tia (2003-10-17 13:23) [0]написанно в программе следующее ...
procedure LoadTool1;
begin
DataModule1.Config.Locate("conf", "tool1v",[loCaseInsensitive]);
if DataModule1.config.Fields[1].AsString = "true" then
begin
form1.ToolBar1.Visible := true;
form1.coolbar2.top := 0;
end
else
form1.ToolBar1.Visible := false;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
loadtool1;
end;
procedure TForm1.N319Click(Sender: TObject);
begin
toolp(1,1);
loadtool1;
end;
Все нормально НО, при загрузке программы если стоин false, панель в дальнейшем не показывается.При true все нормально все меняется
← →
zsr (2003-10-17 13:29) [1]Перед Locate поставь First
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.036 c