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

Вниз

Есть такая проблема.   Найти похожие ветки 

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.049 c