Parameter ins OnShow der Form

[Flogo]

Hi Leute
Wie schon geschrieben will ich beim Aufruf einer Form einen Parameter mitgeben. Wie krieg ich den in die OnShow procedure?

[Daniel B]

Hallo,

warum schreibt Du nicht einfach eine eigene Prozedur, mit Deinen Variablen und rufst die einfach im OnShow auf?

Grüsse, Daniel :hi:

[Flogo]

Es geht um ein Objekt das zum Hauptformular gehört. Das will ich in den Unterformularen "bekannt machen", also die Adresse als Parameter mit an die Form geben und dann von da aus damit arbeiten

[Daniel B]

Zitat:

Zitat von Flogo

Das will ich in den Unterformularen "bekannt machen", also die Adresse als Parameter mit an die Form geben und dann von da aus damit arbeiten

Hä? Irgendwie verstehe ich das nicht. :oops: ;)

Grüsse, Daniel :hi:

[Garby]

Hi,

ich würde das übergebene Objekt im Clienformular in einer lokalen Variable speichern.
Das könnte so ausschauen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    ClientObject: TClientObject;
  public
    { Public-Deklarationen }
    procedure pOpenForm(aClientObject: TClientObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.pOpenForm(aClientObject: TClientObject);
begin
  ClientObject := aClientObject;
  Show;
end;

Der Aufruf schaut so aus:

Delphi-Quellcode:

with TForm1.Create(Self) do
  pOpenForm(myClientObject);

[Flogo]

Also Ich hab ne form und auf der form ein objekt
diese form ruft eine zweite auf die das objekt auf benutzen soll
allerdings nicht mit

Code:

  Hauptform.objekt.wasauchimmer;

sondern beim onShow soll das objekt mitgegeben werden und in eine variable des objekttyps von der unterform gespeichert werden
dann kann ich innerhalb der unterform das objekt so benutzten

Code:

  MyObjekt := Objekt; //Objekt soll der Parameter sein
  MyObjekt.wasauchimmer;

[Flogo]

Sorry hab zu lang zum schreiben gebraucht.
Das wars was ich wollte (die pOpenForm procedure) Vielen Dank Garby :hello: