Form von links vergrössern

[Delphiturbo]

hallo
wie kann ich die Form-Grösse von links ändern ?
Form1.Width:=Form1.Width+50; // rechts

[lbccaleb]

Zitat von Delphiturbo:

hallo
wie kann ich die Form-Grösse von links ändern ?
Form1.Width:=Form1.Width+50; // rechts

so wie du geschrieben hast ist das die form breite

und so für die höhe (mit Height):

Form1.Height := Form1.Height + 50; // rechts [/quote]

aber was genau meinst du mit links?? nur die linke seite oder wie??

[Bernhard Geyer]

Form1.SetBounds(Form1.Left-50, Form1.Top, Form1.Widht+50, Form1.Height);

[Delphiturbo]

Zitat von Bernhard Geyer:

Form1.SetBounds(Form1.Left-50, Form1.Top, Form1.Widht+50, Form1.Height);

Hallo
es wird aber fie Form immer noch von rechts erweitet und gleichzeitig nach links verschoben

[Bernhard Geyer]

Zitat von Delphiturbo:

Zitat von Bernhard Geyer:

Form1.SetBounds(Form1.Left-50, Form1.Top, Form1.Widht+50, Form1.Height);

Hallo
es wird aber fir Form immer noch von rechts erweitet und gleichzeitig nach links verschoben

Willst du wohl den Inhalt verschieben?

[Mikender]

Zitat:

Form1.SetBounds(Form1.Left-50, Form1.Top, Form1.Widht+50, Form1.Height);

Und dann noch alle Elemente um 50 nach rechts verschieben.

[Delphiturbo]

Nein, ich möchte nicht den Inhalt verschieben
sehe Anhang

Wie kann ich alle Objekte verschieben ?

[Bernhard Geyer]

Zitat von Delphiturbo:

Nein, ich möchte nicht den Inhalt verschieben
sehe Anhang

Wie kann ich alle Objekte verschieben ?

Doch machst du! Einfach zusätzlich alle Control auf ein Trägerpanel legen und das verschieben.

[Mikender]

Du musst dir das so vorstellen:

50 Pixel mehr auf der rechten Seite

+

Alle Controls um 50 Pixel verschieben

=

50 Pixel auf der linken Seite

(Du kannst nichts diirekt auf der linken Seite verschieben)

=> Probiers aus es geht

// mit Panel gehts wohl am besten (haste Recht Bernhard Geyer )
--> Kannste dir ja ne Procedure deklarieren die alle Controls finden und sie verschiebt und das Fenster verschiebt (

Delphi-Quellcode:

procedure Fensterpluslinks(Frm :TForm; Breite : Integer)
begin
[...]
end;

[Fussball-Robby]

Setze bei den Objekten auf deiner Form bei Anchors akLeft auf False und akRight auf True, dann musst du die nicht extra verschieben.