Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.18;
Скачать: 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 вся ветка

Текущий архив: 2005.12.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
2-1133437835
s77
2005-12-01 14:50
2005.12.18
создание указателя на объект


9-1121769913
MegaMoniak
2005-07-19 14:45
2005.12.18
Помогите, новичку в Opengl.


1-1132560985
GenieTM
2005-11-21 11:16
2005.12.18
Как получить текст из TDateTimePicker ( но не через DateTime!!)


2-1133789599
veres
2005-12-05 16:33
2005.12.18
Упаковка dbf


4-1129313089
Zoom
2005-10-14 22:04
2005.12.18
Как прочитать блок памяти...