בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 2004.12.12;
הורדה: [xml.tar.bz2];

למטה

גודל טופס מינימלי מצא סניפים דומים


DDDeN   (2004-11-29 12:24) [0]

כיצד להפוך את הצורה יכול להקטין ולהגדיל בעת שינוי גודלו רק לגודל מסוים?



MBo ©   (2004-11-29 12:28) [1]

אילוצים



fashionguide ©   (2004-11-29 12:36) [2]

ולפרטים, plz. :)



DDDeN   (2004-11-29 12:49) [3]

אני גם רוצה לדעת



Molchanov   (2004-11-29 12:57) [4]

WM_GETMINMAXINFO



ASoft   (2004-11-29 12:58) [5]

אילוצים - במפקח מאפייני הטופס: הגדר את הערכים לגובה ולרוחב של הטופס וזהו.



DDDeN   (2004-11-29 13:07) [6]

2

כן-אה-אה-אה ... הדבר הזה עובד בדיוק!

2 מולכנוב

הודעה זו יכולה לשמש גם - מצאתי פיסת קוד ולא יודע מה לעשות עם זה. הנה זה:

הליך TForm1.WMGetMinMaxInfo (var Message: TMessage);
סוג
PTMinMaxInfo = ^ TMinMaxInfo;
להתחיל
עם PTMinMaxInfo (Message.LParam) ^. ptMinTrackSize
להתחיל
x: = 450;
y: = 300;
ח
בירושה;
הסוף;

אם אתה יודע איך זה עובד (או לא עובד - וזה סביר), להסביר לי plz.



Manfred8   (2004-11-29 13:23) [7]

ובכן, זה מטפל WM_GETMINMAXINO המבוטל, משנה את הגודל המינימלי ל- 450 / 300 וקורא למטפל המקורי של הודעה זו.

בטופס להוסיף להודעה
הליך WMGetMinMaxInfo (var הודעה: TMessage); הודעה WM_GETMINMAXINFO;

ולקבל את מה שאתה צריך



Molchanov   (2004-11-29 13:24) [8]

2 DDDeN [6]

 TForm1 = class(TForm)
 ...
 private
   procedure GeMinMaxInfo(var AMessage: TMessage); message WM_GETMINMAXINFO;

...
procedure TForm1.GeMinMaxInfo(var AMessage: TMessage);
begin
 with PMINMAXINFO(AMessage.LParam)^ do
 begin
   ptMinTrackSize.x := MinW; //Минимальная ширина
   ptMinTrackSize.y := MinH; //Минимальная высота
   //ptMaxTrackSize - максимальные размеры
   //ptMaxSize - размеры при WindowState = wsMaximized
   //ptMaxPosition - координаты левого верхнего угла при WindowState = wsMaximized
 end
end;



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2004.12.12;
הורדה: [xml.tar.bz2];

למעלה





זיכרון: 0.56 MB
זמן: 0.051 c
1-1101453334
hgd
2004-11-26 10:15
2004.12.12
תוכנית ללא טופס


3-1100171384
פייק
2004-11-11 14:09
2004.12.12
בעיה עם Table.Find Nearest ו רוסית טקס


14-1101284415
Ricko
2004-11-24 11:20
2004.12.12
"באמת"


1-1101287480
בינוני
2004-11-24 12:11
2004.12.12
הפרת גישה


1-1101743824
NSerge
2004-11-29 18:57
2004.12.12
שומר ב DOS (866) קידוד





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский