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

Вниз

Zagruzka procedure pri starte programmi ili zagruzke formi!   Найти похожие ветки 

 
AndreyL   (2004-04-24 16:15) [0]

Privet!
Podskazhite, pozhalujsta, kak mozhno sdelat tak, chtobi pri zapuske progi ili zagruzke formi zapuskalas opredelennaja procedura. Ja proboval s OnCreate event"om dla dannoj formi, no ne rabotajet. Procedura schgitivajet dannije iz faila i menjat shirinu kolon v DBGrid"e!
Spasibo za lubuju pomosh!
Andrey!


 
Kto ©   (2004-04-24 16:19) [1]

Что значит не работает? Точнее можно? Кусок кода н-р.


 
AndreyL   (2004-04-24 16:31) [2]

Nu tochnee eto vigladit vot tak:
eto zapusk proceduri
procedure TMainForm.FormCreate(Sender: TObject);
begin

LoadColumnSettings("Config\Soft.txt", gridMain);
CurrentCategory:="Config\Soft.txt";
end;


a vot i sama procedura

procedure LoadColumnSettings(PathToFile: string; var gridMain: TDBGrid);
var
SettingsFile: text;
ColumnNumber: integer;
FileLine: string;
begin

       assign(SettingsFile, PathToFile);
       reset(SettingsFile);
       for ColumnNumber:=0 to (gridMain.Columns.Count-1) do
               begin
               readln(SettingsFile, FileLine);
               gridMain.Columns.Items[ColumnNumber].Width:=strtoint(FileLine);
               end;
       close(SettingsFile);

end;

No pri zapuske programmi procedura ne zapuskajetsja, a pri sobtiji OnChange box"a nirmalno zapuskajetsja.
Andrey!



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

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

Наверх




Память: 0.47 MB
Время: 0.031 c
14-1082575432
windows
2004-04-21 23:23
2004.04.11
инет через другой комп


3-1082021754
alex123
2004-04-15 13:35
2004.04.11
ClientDataSet, DataSetProvider - скрытые поля pfHidden


1-1080274886
rosl
2004-03-26 07:21
2004.04.11
цикл в memo


1-1079894338
Yuri Btr
2004-03-21 21:38
2004.04.11
Подмена оконной функции


1-1079960738
russko
2004-03-22 16:05
2004.04.11
Нажатие клавиш