Größe der Form bearbeiten

[Have a nice Day]

Wie kann ich die Größe meiner Form bearbeiten?

Habe das hier versucht:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form1.Width = 648 then
  begin
    TForm1.Width := 840;
    Button1.Left := 822;
  end;
  if Form1.Width = 840 then
  begin
    TForm1.Width := 648;
    Button1.Left := 630;
  end;
end; 

Aber folgende Fehlermeldungen
unit1.pas(43,18) Error: Only class methods, class properties and class variables can be referred with class references
unit1.pas(43,18) Error: Only class class methods, class properties and class variables can be accessed in class methods
unit1.pas(48,18) Error: Only class methods, class properties and class variables can be referred with class references
unit1.pas(48,18) Error: Only class class methods, class properties and class variables can be accessed in class methods
unit1.pas(55) Fatal: There were 4 errors compiling module, stopping

Ich habe den Fehler das sich die 2te if Schleife immer auslöst gesehen... aber das ist ja nicht die Fehlermeldung

[Kiffi]

Code: Alles auswählen

[...]
Form1.Width := 840;
[...]

Grüße ... Kiffi

[Have a nice Day]

Code: Alles auswählen

[...]
Form1.Width := 840;
[...]

Grüße ... Kiffi

riesen dank...
und entschuldigung das ich häufig mal solch doofe Fragen stelle...
Ich habe noch keine Sicherheit in der Sprache :/

[MAC]

Dein Code wird zwar compiliert, aber schauen wir uns den mal schritt für schritt an:

Code: Alles auswählen

 
if Form1.Width = 648 then
  begin
    Form1.Width := 840;
    Button1.Left := 822;
  end;
  if Form1.Width = 840 then
  begin
    Form1.Width := 648;
    Button1.Left := 630;
  end;
 

Nehmen wir an die breite unserer Form ist 648 und wir klicken den Button.
Zeile 1 frag ob die breite 648 ist, ja das ist die, nun wird die breite auf 840 gesetzt.
Darauf hin fragt Zeile 6 ab ob die Breite 840 ist. und ist die Breite 840 ? Ja, weil sie gerade eben auf 840 gesetzt wurden ist. Folglich wird die Breite wieder zurück auf 648 gesetzt.
Zusammengefasst: Dein Programm klappt zwar, tut aber vlt nicht das was du erwartest. Mit einem zusätztlichen else kannst du verhindern, das die zweite abfrage gestertet wird wenn die erste bereits geklappt hat:

Code: Alles auswählen

 
if Form1.Width = 648 then
  begin
    Form1.Width := 840;
    Button1.Left := 822;
  end
  else
  begin
  if Form1.Width = 840 then
  begin
    Form1.Width := 648;
    Button1.Left := 630;
  end;
  end;