Главная страница
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.024 c
4-1129805983
kay
2005-10-20 14:59
2005.12.18
Как передать консольному приложению нажатие кнопки Enter?


1-1132905488
remlin
2005-11-25 10:58
2005.12.18
Программное выделение ячеек StringGrid


2-1133762488
XProger
2005-12-05 09:01
2005.12.18
Позиция курсора в консоли


1-1132519311
x.pro
2005-11-20 23:41
2005.12.18
Проявите человечность!


2-1133766692
RealMan
2005-12-05 10:11
2005.12.18
Проблема с Media Player -ом. При открытии *.AVI файлов.