Hallo,
dazu musst Du Deiner Form eine WMGetMinMaxInfo-Message verpassen.
In der private-Eigenschaft der Form musst Du folgendes einfügen:
Delphi-Quelltext
1: 2: 3: 4:
| ... private procedure WMGetMinMaxInfo(var aMsg:TWMGetMinMaxInfo); message WM_GETMINMAXINFO; ... |
Nicht vergessen, die Unit
Messages in die uses-Klauses aufnehmen.
Im implementations-Teil folgt dann:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9:
| procedure TForm1.WMGetMinMaxInfo(var aMsg:TWMGetMinMaxInfo); begin with aMsg.MinMaxInfo^ do begin ptMinTrackSize:=Point(300, 200); ptMaxTrackSize:=Point(640, 480); end; inherited; end; |
Hoffe, es hilft.
_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)