Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.28;
Скачать: CL | DM;

Вниз

Как убрать возможность Resize окна ?   Найти похожие ветки 

 
MAPA3M   (2002-01-10 14:03) [0]

Может кто-нибудь подскажет, как запретить изменение размера окна ? Большое спасибо.


 
IronHawk ©   (2002-01-10 14:11) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.BorderStyle:=bsSingle;
end;



 
StelZ ©   (2002-01-10 22:28) [2]

Ну, вообще-то, чтобы нельщзя было вообще изменять рназмеры окна, нужно еще в свойствах формы, в Object Inspector-е, в разделе Border Icons, отключить Maximize - тогда форму будет низзя разворачивать. А вообще, все зависит от цели. Например, мжно использовать BorderStyle - bsDialog.


 
MAPA3M   (2002-01-10 23:29) [3]

Спасибо большое за советы :)).


 
sunwheel ©   (2002-01-11 10:26) [4]

Самый надежный способ перехватывать 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;


 
-=CrazyFish=- ©   (2002-01-11 10:53) [5]

Ещё можно у TForm указать Constraints с одинаковыми максимальными и минимальными значениями. В этом случае даже если максимизировать форму, то её размер не изменится.


 
IronHawk ©   (2002-01-11 11:05) [6]

Ну раз так то можно и через :

CreateForm(ULONG ulUIParam, ULONG ulFlags, IMAPIFormInfo pfrminfoToActivate, REFIID refiidToAsk, LPVOID FAR * ppvObj);

Дерзай !



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
3-90219
Oleg_K
2001-12-17 21:03
2002.01.28
DBEdit в фокусе


1-90271
RomaRomaRoma
2002-01-09 19:29
2002.01.28
Язык текста в RichEdit


3-90224
EternalWonderer
2001-12-24 17:20
2002.01.28
Проблема с count(*) в joined запросе


14-90366
Knight
2001-11-30 17:35
2002.01.28
Нужен ответ!!!!!! Плиз!!!! (вопрос по ФТП)


6-90347
Kyd
2001-11-05 20:16
2002.01.28
Телнет на ClientSocket