einer Procedure Formulare als Parameter übergeben?

[Nersgatt]

Deine Formulare sind ja von TForm abgeleitet. Daher kannst Du den Parameter als TForm deklarieren und die Deine Formulare übergeben. Das ist kein Problem

[bcvs]

Du musst nur das var weglassen:
procedure Groesse(f : TForm); f ist ja nur ein Zeiger auf das Formular. Den wilst du in der procedure ja nicht verändern, sondern die Inhalte / Properties.

[sko1]

Danke, ich glaube ich habe es geschnallt!

Jetzt sieht das Ganze so aus:

Delphi-Quellcode:

procedure Groessenanpassung(var f: TCustomForm);
begin
    f.left := MainformPos.x;
    f.top := MainformPos.y;
    f.width := MainformPos.w;
    f.height := MainformPos.h;
  end;
end;

und beim Aufruf caste ich das aufrufende Formular

    Groessenanpassung(TCustomForm(self));

Habe ich noch was übersehen, zumindest funktioniert es nun wie gewünscht.

Ciao
Stefan

[haentschman]

Moin...
Den Cast kannst du dir schenken.

Delphi-Quellcode:

Groessenanpassung(self);
.

Das VAR auch...

Delphi-Quellcode:

Groessenanpassung(f: TCustomForm);
.

PS: sind die Buchstaben auf der Tastatur ausgegangen? Warum hat der Parameter (f) keinen sprechenden Namen?

[AndyDF]

Und das "var" kann auch weg bleiben. Also nur:
procedure Groessenanpassung(f: TCustomForm);
Sonst veränderst du dir noch deinen originalen Form-Pointer.

[Edit]
@haentschman: haben wir wohl zur selben Zeit geschrieben.

[haentschman]

hier ist es besser doppelt als vergessen...

[sko1]

Danke, habe Eure Vorschläge umgesetzt!

Zitat:

Sonst veränderst du dir noch deinen originalen Form-Pointer.

beim Ändern der Abmessungen / Position des übergebenen Formulars?

Ciao
Stefan

[Jumpy]

Zitat von haentschman:

PS: sind die Buchstaben auf der Tastatur ausgegangen? Warum hat der Parameter (f) keinen sprechenden Namen?

Im Prinzip hast du ja recht, aber f für TForm in einer Procedure mit 4 LOC find ich vertretbar. Erst recht, wenn man die Procedure selber umbenennt in FormGrössenanpassung oder sowas.