Public-Variable exportieren und im Formular-FormCreate verwenden

[DevidEspenschied]

Hallo,

ich habe ein Formular, das je nach Aufruf 2 unterschiedliche Überschriften anzeigen soll. Dafür existiert eine Unit-Interne Variable vom Typ Byte, die Werte von 1 (Überschrift 1) und 2 (Überschrift 2) annehmen kann.

Nun wäre es aber sinnvoller, diese interne Typvariable in die Formular-Klasse bzw. deren Public-Bereich zu verschieben. Das Problem dabei ist aber, dass diese Variable in der FormCreate-Funktion des Formulars abgefragt werden soll, weswegen sie nicht nach dem Create-Aufruf festgelegt werden kann.

Die Formularklasse sieht ungefähr so aus:

Delphi-Quellcode:

  TFormZeigeDatenKompakt = class(TForm)
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
  protected
  public
    KompaktTyp : Byte; {Typ 1 = Überschrift 1
                        Typ 2 = Überschrift 2}
  end;

Aufrufen wollte ich dieses Formular wiefolgt:

Delphi-Quellcode:

    FormZeigeDatenKompakt.FormZeigeDatenKompaktVar:=FormZeigeDatenKompakt.TFormZeigeDatenKompakt.Create(Application);
    FormZeigeDatenKompakt.FormZeigeDatenKompaktVar.KompaktTyp:=2;
    FormZeigeDatenKompakt.FormZeigeDatenKompaktVar.ShowModal;
    FormZeigeDatenKompakt.FormZeigeDatenKompaktVar.Free;

Wobei FormZeigeDatenKompaktVar wiefolgt Unit-Intern deklariert ist:

Delphi-Quellcode:

var FormZeigeDatenKompaktVar : TFormZeigeDatenKompakt;

Hier wird aber die Zuweisung des KompaktTyps von 2 ignoriert, da mit Create automatisch FormCreate aufgerufen wird. Wie kann man das verbessern?

[WM_CLOSE]

Wie wäre es so:

Delphi-Quellcode:

...
public
constructor Create(aOwner:TComponent; Ueberschrift:Byte);overload;
...

[FredlFesl]

Mach aus der Variable eine Eigenschaft und setze im Setter die Überschrift. Dann ist es egal, wann Du 'KompaktTyp' setzt.

Delphi-Quellcode:

Type
  TMyForm = Class (TForm)
  ...
    Property KompaktTyp : Byte Read fKompaktTyp Write SetKompaktTyp;
  End;

...

Procedure TMyForm.SetKompaktTyp (Value : Byte);
Begin
  If Value <> fKompaktTyp then begin
    fKompaktTyp := Value;
    Caption := KompaktTypFormUeberschrift[fKompaktTyp] // <<--- hier noch die Überschrift setzen
  End
End;

[EWeiss]

OT:
Kapiere nicht warum ihr für Getter immer 'f' anstelle von 'Get' für die Namensgebung wählt.
Irgendwie unlogisch.

gruss

[Ralf Kaiser]

Zitat:

Zitat von EWeiss (Beitrag 1112466)

OT:
Kapiere nicht warum ihr für Getter immer 'f' anstelle von 'Get' für die Namensgebung wählt.
Irgendwie unlogisch.

Wenn ein "F" vorangestellt ist bezieht sich das auf die Feldvariable.

Das "Get..." bezieht sich immer auf eine Funktion die als Rückgabewert den Wert des entsprechenden Feldes hat (oder auch nicht, der Wert kann bei einer Getter-Methode auch woanders herkommen)

[EWeiss]

Zitat:

Das "Get..." bezieht sich immer auf eine Funktion die als Rückgabewert den Wert des entsprechenden Feldes hat

So mache ich es ja.. deshalb war es mir unverständlich :)

In dem Fall hätte man dann auch anstelle von Set ebenfalls 'f' nehmen können.
Na ja war nur mal Interesse halber von mir angestoßen.

gruss

[fkerber]

Hi,

ich glaube, da liegt ein Missverständnis vor.

In dem Beispiel oben gibt es keine Getter-Funktion, sondern es wird direkt auf das Feld verwiesen (das dann eben mit f für Feld anfängt).
Da aber im Setter noch "Magie" passieren soll, wurde eine separate Funktion angelegt (bzw. eine Prozedur) und diese dann korrekt mit setXXX benannt.


LG, Frederic

[FredlFesl]

@fkerber: So isses, hätte das Codebeispiel wohl vollständig abgeben sollen. Nun gut, hier vollständig und etwas gepimpt:

Delphi-Quellcode:

Type
  TKompaktFormularUeberschrift = (kfuUndefiniert, kfuTyp1, kfuTyp2);

  TMyForm = Class (TForm)
  private
    fKompaktTyp : TKompaktFormularUeberschrift;
    Procedure SetKompaktTyp (Value : TKompaktFormularUeberschrift);
  public
    Property KompaktTyp : TKompaktFormularUeberschrift Read fKompaktTyp Write SetKompaktTyp;
  End;

Const
  KompaktTypFormUeberschrift : Array [TKompaktFormularUeberschrift] Of String = (
    'undefiniert',
    'Kompaakte Darstellung-Version 1',
    'Kompaakte Darstellung-Version 2'
    );
...
Procedure TMyForm.SetKompaktTyp (Value : TKompaktFormularUeberschrift);
Begin
  If Value <> fKompaktTyp then begin
    fKompaktTyp := Value;
    Caption := KompaktTypFormUeberschrift[fKompaktTyp]
  End
End;

Der Präfix 'f' des Feldnamens ist entsprechend der 'Standard'-Delphi Konvention für Nomenklaturen, analog zum Präfix 'T' für Typen, 'I' für Interfaces und 'E' für Exceptions... Gibt's noch mehr? Ach ja, vielleicht 'A' für Parameter (in welcher Sprache fängt 'Parameter' mit 'A' an?)

[fkerber]

Hi,

vllt. A für Argument - ist zwar geraten, aber oft findet man ja gerade auch bei Main-Methoden (ja, nicht in Delphi ;) ) args.


LG, Frederic

[DevidEspenschied]

Danke für die Antworten. Ich werde die Lösung von FredlFesl mal ausprobieren.

Was spricht eigentlich gegen die Lösung von WM_CLOSE, indem Create überschrieben wird und in FormCreate Inherited aufgerufen sowie die Caption-Eigenschaft gesetzt wird?