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

Размеры окна при разворачивании   Найти похожие ветки 

← →
Nemiroff   (2005-12-05 08:40) [0]

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

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

---

← →
Anatoly Podgoretsky ©   (2005-12-05 09:01) [1]

Cinstraints+OnChange

---

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

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

---

← →
Andron.Ru ©   (2005-12-05 09:31) [3]

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.

Можно так...

---

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

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



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