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

Applet and Forms?   Найти похожие ветки 

← →
Jon ©   (2008-02-13 04:05) [0]

If I set HasBorder or HasCaption to False to forms within a multi-form applet, then the form is not shown:

program Project1;

uses
 KOL;

var
 Form1, Form2: PControl;

begin
 Applet := NewApplet("");
 Form1 := NewForm(Applet,"Form1");
 Form2 := NewForm(Applet,"Form2");
 Form1.HasBorder := False;      // Form will not show
//  Form2.HasBorder := False;
//  Form1.HasCaption := False;
//  Form2.HasCaption := False;
 Run(Applet)
end.

If I remove the Applet, then the forms work correctly. Bug?

---

← →
Jon ©   (2008-02-15 03:38) [1]

I found the problem:

program Project1;

uses
KOL;

var
Form1, Form2: PControl;

begin
Applet := NewApplet("");
Form1 := NewForm(Applet,"Form1").SetSize(640,480);
Form2 := NewForm(Applet,"Form2").SetSize(640,480);
Form1.HasBorder := False;
//  Form2.HasBorder := False;
//  Form1.HasCaption := False;
//  Form2.HasCaption := False;
Run(Applet)
end.

The size of the form has to be defined.
I hope that I did not waste anyone"s time.

---

← →
_vadim   (2008-02-15 05:57) [2]

To Jon:
Yes, Yes... :-)
If to write:

Form1.HasBorder := False;      // Form will not show
MsgOk(Int2Str(Form1.Width)+", "+Int2Str(Form1.Height)); // -- My addition
Run(Applet)

then I can see "0, 0"... :-)

---

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

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



Память: 0.45 MB
Время: 0.008 c