| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

И снова он - ERROR 216

Bogus ©   (2002-09-03 00:41:00) 

Вот пример кода:

uses
Windows,
Messages,
KOL;

{$R *.RES}
var
Form, MDIClient,MDIChild : PControl;
begin
Form := NewForm(Applet,"Main");
Form.Style := WS_OVERLAPPED or WS_VISIBLE;
Form.Width := 500;
Form.Height := 500;
MDIClient := NewMDIClient(Form,0);
MDIChild := NewMDIChild(MDIClient,"Child");
MDIChild.Style := WS_OVERLAPPED;
run(Form)
end.


При выполнении run выскакивает означенный error.
Подскажите, что сделано не так?

---

Kirill   (2002-09-04 11:01:00) [1]

> Все равно.

Может и все равно, но у меня плохо создалась MDI-дочернее окно при RUN(Form).

---

Bogus   (2002-09-04 02:07:00) [2]

>Run(Applet) //а не run(Form)
Все равно.

---

Kirill   (2002-09-03 14:31:00) [3]

> var
> Form, MDIClient,MDIChild : PControl;
> begin
Applet:=NewApplet("MDI Test");
> Form := NewForm(Applet,"Main");
> Form.Style := WS_OVERLAPPED or WS_VISIBLE;
> Form.Width := 500;
> Form.Height := 500;
> MDIClient := NewMDIClient(Form,0);
> MDIChild := NewMDIChild(MDIClient,"Child");
> MDIChild.Style := WS_OVERLAPPED;
> run(Form)
Run(Applet) //а не run(Form)
> end.

---

Наверх