Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];
ВнизПроблема с отображением MDIСhild Найти похожие ветки
← →
KSN © (2006-04-07 17:40) [0]Как сделать чтобы формы с FormStyle fsMDIChild, после создания имели такой же размер какой они имеют при дизайне?
← →
ctudent © (2006-04-08 00:23) [1]ИНИ файлы надо учить!
Создаёшь ИНИ файл, в котором указываешь размеры формы.
При выполнени приложения загружаешь этот ИНИ файл.
Вот примерный кусок кода:
procedure TForm1.WriteParams; // Запись в ИНИ-файл размеров формы
var
IniFile:TIniFile;
begin
IniFile:=TIniFile.Create("c:\spssuda\systsh\conf.ini");
IniFile.WriteString("services","n_organ",suiEdit2.Text);
IniFile.WriteString("services","chet",suiEdit3.Text);
IniFile.WriteString("services","polog",suiEdit6.Text);
IniFile.WriteString("services","tel",suiEdit7.Text);
аналогично вызываеется ReadPArams; // Загрузка из ИНИ-файла размеров формы
← →
Германн © (2006-04-08 02:01) [2]
> ctudent © (08.04.06 00:23) [1]
>
> ИНИ файлы надо учить!
> Создаёшь ИНИ файл, в котором указываешь размеры формы.
> При выполнени приложения загружаешь этот ИНИ файл.
>
> Вот примерный кусок кода:
>
> procedure TForm1.WriteParams; // Запись в ИНИ-файл размеров
> формы
> var
> IniFile:TIniFile;
> begin
> IniFile:=TIniFile.Create("c:\spssuda\systsh\conf.ini");
> IniFile.WriteString("services","n_organ",suiEdit2.Text);
>
> IniFile.WriteString("services","chet",suiEdit3.Text);
> IniFile.WriteString("services","polog",suiEdit6.Text);
> IniFile.WriteString("services","tel",suiEdit7.Text);
>
> аналогично вызываеется ReadPArams; // Загрузка из ИНИ-файла
> размеров формы
Ппперевведи!
Где тут размеры?
← →
ctudent © (2006-04-08 02:16) [3]> ctudent © (08.04.06 00:23) [1]
>
> ИНИ файлы надо учить!
> Создаёшь ИНИ файл, в котором указываешь размеры формы.
> При выполнени приложения загружаешь этот ИНИ файл.
>
> Вот примерный кусок кода:
>
> procedure TForm1.WriteParams; // Запись в ИНИ-файл размеров
> формы
> var
> IniFile:TIniFile;
> begin
> IniFile:=TIniFile.Create("c:\spssuda\systsh\conf.ini");
> IniFile.WriteString("services","n_organ",suiEdit2.Text);
>
> IniFile.WriteString("services","chet",suiEdit3.Text);
> IniFile.WriteString("services","polog",suiEdit6.Text);
> IniFile.WriteString("services","tel",suiEdit7.Text);
>
> аналогично вызываеется ReadPArams; // Загрузка из ИНИ-файла
> размеров формы
Ппперевведи!
Где тут размеры?
Данный пример дан абстрактно!
Вот пример как надо:
procedure TForm1.WriteParams;
Var IniFile:TIniFile;
begin
IniFile:=TIniFile.Create("project.ini");
IniFile.WriteInteger("FORM1","Form1Top",Form1.Top);
IniFile.WriteInteger("FORM1","Form1Left",Form1.Left);
IniFile.WriteInteger("FORM1","Form1Height",Form1.Height);
IniFile.WriteInteger("FORM1","Form1Width",Form1.Width);
IniFile.WriteString("FORM1","Edit1Text",Edit1.Text);
← →
Германн © (2006-04-08 02:22) [4]Не ну, а как решить сабж:
> Как сделать чтобы формы с FormStyle fsMDIChild, после создания
> имели такой же размер какой они имеют при дизайне?
← →
ctudent © (2006-04-08 02:26) [5]
> Как сделать чтобы формы с FormStyle fsMDIChild, после создания
>
> > имели такой же размер какой они имеют при дизайне?
Что значит имеют при дизайне?
← →
Германн © (2006-04-08 02:53) [6]
> ctudent © (08.04.06 02:26) [5]
Спроси у автора. Я то тут причём?
← →
vovnuke © (2006-04-08 11:21) [7]Position := poDefaultPosOnly;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.119 c