| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как убрать возможность Resize окна ? [D6, Win2k]
MAPA3M © (2002-01-10 14:03:00)Может кто-нибудь подскажет, как запретить изменение размера окна ? Большое спасибо.
IronHawk (2002-01-11 11:05:00) [1]Ну раз так то можно и через :
CreateForm(ULONG ulUIParam, ULONG ulFlags, IMAPIFormInfo pfrminfoToActivate, REFIID refiidToAsk, LPVOID FAR * ppvObj);
Дерзай !
-=CrazyFish=- (2002-01-11 10:53:00) [2]Ещё можно у TForm указать Constraints с одинаковыми максимальными и минимальными значениями. В этом случае даже если максимизировать форму, то её размер не изменится.
sunwheel (2002-01-11 10:26:00) [3]Самый надежный способ перехватывать WM_GETMINMAXINFO
private
{ Private declarations }
procedure WMGetMinMaxInfo(var Message : TMessage); message WM_GETMINMAXINFO;
...
procedure TForm.WMGetMinMaxInfo(var Message: TMessage);
type
PTMinMaxInfo = ^TMinMaxInfo;
begin
with PTMinMaxInfo(Message.LParam)^.ptMinTrackSize
do begin
x := 480;
y := 330;
end;
inherited;
end;
MAPA3M (2002-01-10 23:29:00) [4]Спасибо большое за советы :)).
StelZ (2002-01-10 22:28:00) [5]Ну, вообще-то, чтобы нельщзя было вообще изменять рназмеры окна, нужно еще в свойствах формы, в Object Inspector-е, в разделе Border Icons, отключить Maximize - тогда форму будет низзя разворачивать. А вообще, все зависит от цели. Например, мжно использовать BorderStyle - bsDialog.
IronHawk (2002-01-10 14:11:00) [6]procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.BorderStyle:=bsSingle;
end;
| |
