Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с отображением MDIСhild [D7, XP]

KSN © (2006-04-07 17:40:00)
Как сделать чтобы формы с FormStyle fsMDIChild, после создания имели такой же размер какой они имеют при дизайне?

vovnuke (2006-04-08 11:21:00) [1]
Position := poDefaultPosOnly;

Германн (2006-04-08 02:53:00) [2]

> ctudent © (08.04.06 02:26) [5]

Спроси у автора. Я то тут причём?

ctudent (2006-04-08 02:26:00) [3]

> Как сделать чтобы формы с FormStyle fsMDIChild, после создания
>
> > имели такой же размер какой они имеют при дизайне?

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

Германн (2006-04-08 02:22:00) [4]
Не ну, а как решить сабж:

> Как сделать чтобы формы с FormStyle fsMDIChild, после создания
> имели такой же размер какой они имеют при дизайне?

ctudent (2006-04-08 02:16:00) [5]
> 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:01:00) [6]

> 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 00:23:00) [7]
ИНИ файлы надо учить!
Создаёшь ИНИ файл, в котором указываешь размеры формы.
При выполнени приложения загружаешь этот ИНИ файл.

Вот примерный кусок кода:

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; // Загрузка из ИНИ-файла размеров формы

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »