einer Procedure Formulare als Parameter übergeben?

[sko1]

Hallo,

ich stehe auf dem Schlauch:
Ich benötige eine procedure, die die Größe und die Position eines Formulars festlegt.
Innerhalb des Forms ist das natürlich kein Problem, ich möchte aber ausgehend vom Hauptformular, dass jedes daraus angezeigte Unterformular die gleiche Position und Größe wie das aufrufende Formular hat.

Das kann ich als Procedure in jedem Formular einzeln machen, aber bei > 20 Unterformularen wäre das ja Unsinn, ich möchte eine "allgemeingültige" procedure haben, der ich das zu ändernde Unterformular übergebe und die ich dann aus allen Unterformularen aufrufen kann...

procedure Groesse(var f : TForm) geht nicht weil der ja TFormUnter1, TFormUnter2 etc. übergeben wird.

Wo habe ich den Knoten im Hirn?

Ciao
Stefan

[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:

Delphi-Quellcode:

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

Delphi-Quellcode:

    Groessenanpassung(TCustomForm(self));

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

Ciao
Stefan

[haentschman]

Moin...:P
Den Cast kannst du dir schenken. 8-)

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? :stupid:

[AndyDF]

Und das "var" kann auch weg bleiben. Also nur:

Delphi-Quellcode:

procedure Groessenanpassung(f: TCustomForm);

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

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

[haentschman]

8-) 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

[haentschman]

Zitat:

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

...es könnte der 35. Mitarbeiter (weil er es nicht besser weiß :wink:) das versuchen. Sicher ist sicher. :zwinker: Dann erhällt er wenigstens die Meldung: "Du Trottel".

[Jumpy]

Zitat:

Zitat von haentschman (Beitrag 1370854)

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

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.