hallo Bernhard,
ich habe folgendes Beispiel irgendwo bekommen, da habe ich aber immer auf der rechten Seite Probleme, ebenso mit den Elementen nach der unteren Fensterseite hin. Leider kenne ich keine Komponente, die sowas unter D7 machen könnte. Da wäre dann vielleicht recht schnell eine Lösung möglich.
Ich hänge mal die Original-Form als Bild und das Ergebnis ran.
Folgender Source steckt dahinter ...
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| procedure TForm1.FormCreate(Sender: TObject);
begin
MaximizeAndScale;
end;
procedure TForm1.MaximizeAndScale;
var
sWidth: Double;
sHeight: Double;
begin
sWidth := Screen.MonitorFromWindow(Handle).Width / Width;
sHeight := Screen.MonitorFromWindow(Handle).Height / Height;
if sWidth < sHeight then
begin
ScaleBy(Round(Screen.MonitorFromWindow(Handle).Width * 1.02), Width);
end
else
begin
ScaleBy(Round(Screen.MonitorFromWindow(Handle).Height * 1.02), Height);
end;
WindowState := wsMaximized;
end;
end. |
