Текущий архив: 2003.06.02;
Скачать: CL | DM;

Вниз

И снова он - ERROR 216   Найти похожие ветки 

← →
Bogus ©   (2002-09-03 00:41) [0]

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

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-03 14:31) [1]

> 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.

---

← →
Bogus ©   (2002-09-04 02:07) [2]

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

---

← →
Kirill ©   (2002-09-04 11:01) [3]

> Все равно.

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

---

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

Текущий архив: 2003.06.02;
Скачать: CL | DM;

Наверх

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