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

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

Размеры окна при разворачивании [D6, WinXP]

Nemiroff ©   (2005-12-05 08:40:00) 

Всем привет ! пожалуйста, помогите кто знает !

Есть форма... нужно чтобы при нажатии развернуть на весь экран, он занимал только верхнюю полоску.. как сама оболочка дельфи.....

---

Andron.Ru   (2005-12-05 09:31:00) [1]

type
 TForm1 = class(TForm)
      procedure FormShow(Sender: TObject);
 private
   { Private declarations }
 t, l, h, w: integer;
 public
   { Public declarations }
 protected
   procedure MsgMax(var message: TWMSysCommand); message WM_SYSCOMMAND;
end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.MsgMax(var Message:TWMSYSCOMMAND);
begin
  inherited;
  if message.CmdType=SC_MAXIMIZE then
    begin
      form1.Align:=Altop;
      form1.Height:=200;
    end
      else
  if message.CmdType=SC_RESTORE then
    begin
      form1.Align:=alNone;
      form1.Height:=h;
      form1.Width:=w;
      form1.Left:=l;
      form1.Top:=t;
    end;
 end;
procedure TForm1.FormShow(Sender: TObject);
 begin
   h:=form1.Height;
   w:=form1.Width;
   l:=form1.Left;
   t:=form1.Top;
 end;

end.

Можно так...

---

Gem   (2005-12-05 09:12:00) [2]

у человека очепятка - Constraints

---

Anatoly Podgoretsky   (2005-12-05 09:01:00) [3]

Cinstraints+OnChange

---

Наверх