Public-Variable exportieren und im Formular-FormCreate verwenden

[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?)