Проблема с отображением 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 © (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, после создания
>
> > имели такой же размер какой они имеют при дизайне?

Что значит имеют при дизайне?

Position := poDefaultPosOnly;

Проблема с отображением MDIСhild Найти похожие ветки