Перемещение формы

[Claster]

Всем доброго времени суток....скажите как переместить форму если у нее BorderStyle:=bsNone, не используя API

[Claster]

нет никаких предложений?

[Человек_Борща]

procedure TForm1.Button1Click(Sender: TObject);
begin
//вверх
Form1.Top:=Form1.Top-2;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Влево
Form1.Left:=Form1.Left-2;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//Вправо
 Form1.Left:=Form1.Left+2;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
//вниз
Form1.Top:=Form1.Top+2;
end;

[OlegVE]

Здравствуйте
Посмотрите здесь
http://www.sd-company.su/sd_base_xp/...for_header.php
До свидания

[Claster]

Сообщение от OlegVE

Здравствуйте
Посмотрите здесь
http://www.sd-company.su/sd_base_xp/...for_header.php
До свидания

Спасибо замечательная статья........скажите а как сделать что бы 2 форма не выходила за пределы 1 формы

[Claster]

Покопавшись выяснилось что что-то типа такого

   if self.Left + X - OldLeft > Form1.Left then
   if self.Left + X - OldLeft + Form2.Width < Form1.Left + Form1.Width then
   if self.Top + Y  - OldTop > Form1.Top then
   if self.Top + Y - OldTop + Form2.Height < Form1.Top + Form1.Height then
   Self.SetBounds(Self.Left+X - OldLeft, Self.Top+Y - OldTop,
   Self.width, Self.height);