TForm

← →
FireMan_Alexey © (2004-05-18 15:10) [0]

Ув. Мастера!
Когда я создаю ручками форму то она может перемещатся только в пределах моей формы, а как сделать чтобы ее можно было перемещать за пределы формы?

← →
MU © (2004-05-18 15:17) [1]

Как создаете?

← →
FireMan_Alexey © (2004-05-18 15:22) [2]

Form2:=TForm.CreateParented(Form1.Handle);
Form2.Left:=1;
Form2.Top:=1;
Form2.Width:=240;
Form2.Height:=180;
Form2.Caption:="1";
Form2.Repaint;
// Form2.Canvas.Ellipse(400,400,480,480);
Form2.BorderIcons:=[{biMinimize,}biSystemMenu];
Form2.BorderStyle:=bsSingle;
Form2.Color:=clBtnFace;
Form2.FormStyle:=fsNormal;
Form2.WindowState:=wsNormal;
Form2.Show;

Form2:=TForm.CreateParented(Form1.Handle);
Поэтому и создается!!!!
Пишите
Form2:=TForm.Create(Form1);

TForm Найти похожие ветки