Скачать: CL | DM;

Проблема с отображением 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c