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

MDI приложения.   Найти похожие ветки 

← →
Совчсем новичок   (2002-09-09 10:06) [0]

Смешно, но никак не могу вывести на экран дочернюю форму. Стили установил правильно и у главной и у дочерней. Может кто-подскажет как ее выводить

---

← →
Виктор Щербаков ©   (2002-09-09 10:22) [1]

File|New|Projects|MDI Application
И изучай сгенерированный код.

---

← →
Совсем новичок   (2002-09-09 13:31) [2]

Смотрел не помогает.
Там просто дочерняя форма имеет соответствующий стиль, главная соответственно. Добавляю свою форму с именем не MDIChild, а к примеру Form1, и просто исправляю имена. Никаких ошибок но дочерней формы на экране нет!!!

---

← →
Игорь Шевченко ©   (2002-09-09 13:40) [3]

Совсем новичок (09.09.02 13:31)

А как бы посмотреть ваши действия ? :-)
(Фрагмент кода, или код целиком)

---

← →
от меня   (2002-09-09 13:41) [4]

Эта процедура создает доч. формы. Только не забудь убрать в опциях проекта эту форму из Auto-create forms

procedure CreateMDIChildForm(Name: string);
var Child: TMDIChildForm;
begin
inc(MDICount);
Child := TMDIChildForm.Create(Application);
Child.Caption := Name;
end;

---

← →
Совсем новичок   (2002-09-09 15:12) [5]

>> от меня - не работает. Вот код
Главная

var
MDIForm: TMDIForm;
implementation
uses Unit2;
{$R *.DFM}
procedure CreateMDIChildForm(Name: string);
var Child: TMDIChildForm;
begin
inc(MDICount);
Child := TMDIChildForm.Create(Application);
Child.Caption := Name;
end;
procedure TMDIForm.ToolButton1Click(Sender: TObject);
begin
CreateMDIChildForm("NONAME");
end;
end.


Дочерняя

type
TMDIChildForm = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.DFM}
procedure TMDIChildForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;


---

← →
Игорь Шевченко ©   (2002-09-09 15:20) [6]

Осталось только удостоверится, что у главной форму указан FormStyle fsMDIForm, а у TMDIChildForm FormStyle равен fsMDIChild

---

← →
Совсем новичок   (2002-09-09 15:35) [7]

Все указано правильно, вот в этом то и весь вопрос что не так. Никаких ошибок нет. Просто не появляется форма и все.

---

← →
Совсем новичок   (2002-09-09 15:45) [8]

Еще раз все проверил, все правильно - а результата нет.

---

← →
Совсем новичок   (2002-09-09 15:48) [9]

Просмотрел даже dfm файлы, все свойства тип-топ. Может у меня глаз замылился, чего-то не вижу. Кто-нить может помочь - взглянуть на исходный текст?

---

← →
от меня   (2002-09-09 16:00) [10]

присылай текст

---

← →
Игорь Шевченко ©   (2002-09-09 16:13) [11]

Child := TMDIChildForm.Create(Application);
Child.Caption := ....

Child.Show();

---

← →
от меня   (2002-09-09 16:29) [12]

И зачем интересно Child.Show() - это лишнее

---

← →
NeyroSpace   (2002-09-09 16:55) [13]

*\Delphi5\Demos\Doc\Textedit

---

← →
Совсем новичок   (2002-09-09 17:10) [14]

Всем спасибо, дочерние формы прятались под ScrollBox. Неужели этого нельзя избежать, пробовал использовать Panel, тоже самое.

---

← →
Совсем новичок   (2002-09-09 17:22) [15]

Кстати, если открываешь форму (дочернюю) сразу максимизированную то она сразу появляется в обычном размере, и уже потом раскрывается на всю главную форму, это тоже стандарт или нет.

---

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

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



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