Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Вниз

Как убрать возможность 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.003 c
1-90319
Tor
2002-01-08 22:42
2002.01.28
Массивы объектов


4-90413
AlexandrH
2001-11-28 09:22
2002.01.28
Вопрос такой.....


14-90361
Oleg Gashev
2001-12-03 22:06
2002.01.28
БИБЛИЯ ПРОГРАММИСТА


6-90342
glycol
2001-11-05 14:41
2002.01.28
Как проверить eMail ?


14-90369
Ross
2001-12-03 21:56
2002.01.28
Игры





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский