Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Formulargröße immer beibehalten?


Roy - Sa 23.11.13 22:35
Titel: Formulargröße immer beibehalten?
Sehr geehrte Delphi-Freunde!

Wie kann ich eine TForm Oberfläche erstellen die sich jedem Bildschirm immer auf 100 Prozent der Größe anpasst. Es soll immer Vollbild dargestellt werden.

Die Positionen der Komponenten (Button, Bilder usw) sollen dabei ihre Ursprungplatzierung behalten.

Eine anpassung der Bildschirmauflösung wäre wünschenswert!

Danke für Eure Hilfe im Vorraus


Quitzlinga - So 24.11.13 23:04

Hi,

Suche bei Google DELPHI SCALEBY sollte das sein, was Du suchst.

Das Verhalten der Positionierung bei einer Grössenänderung des Formulars steuerst Du über die Anchor-Eigenschaft der jeweiligen Komponente.

Und wenn die Form bei Start maximiert werden soll, einfach die Formeigenschaft WindowState auf wsMaximize stellen.

MfG

Quitzlinga


Delete - So 24.11.13 23:15

Ist einfach:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
procedure TForm1.Button25Click(Sender: TObject);
begin
ScaleBy(133100); //um 33% vergrößern
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
ScaleBy(100133);//  rückgängig machen
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
Form1.WindowState:= wsMaximized; // ist an dieser Stelle aber unpraktisch
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
Form1.WindowState:= wsNormal; // ist an dieser Stelle aber unpraktisch
end;