Komponente - Constructor MainForm.Hide = Access Violation???

[p.abend]

Jetzt habe ich doch noch eine Frage!

Wie kann ich denn jetzt von meinem RegForm aus auf die Variablen meiner Klasse zugreifen?

[shmia]

Zitat:

Zitat von p.abend

Wie kann ich denn jetzt von meinem RegForm aus auf die Variablen meiner Klasse zugreifen?

Das "tun man nicht", da es nicht objekt-orientiert ist.
Stattdessen bietet TRegForm ein oder mehrere Properties an:

Delphi-Quellcode:

else begin 
   // RegForm anzeigen 
   Application.ShowMainForm := false; 
   RegForm := TRegform.create(nil); 
   // Daten an Regform übergeben
   RegForm.ApplicationName := self.fApplicationName; 
   if RegForm.showmodal = mrOK then
   begin
      // und auch entgegen nehmen
      self.regkey := RegForm.RegKey;
   end;
  end;

[p.abend]

Oh das wusste ich nicht! Danke für deine Hilfe.
Habe nur ein Problem, der kann mit der Zeile hier nichts anfangen...

Delphi-Quellcode:

..
RegForm.ApplicationName := self.fApplicationName;
..

Zitat:

[Pascal Fehler] RegUnit.pas(77): E2003 Undefinierter Bezeichner: 'ApplicationName'

Muss ich jetzt noch was beachten oder habe ich was falsch gemacht?

[DeddyH]

Hast Du denn eine Property ApplicationName im RegForm deklariert?

[p.abend]

Hatte ja am Anfang kurz geschrieben, dass das meine erste Kompo ist. Ich wusste nicht das ich noch eine property im RegForm anlegen muss.

Muss ich dann auch noch eine Property in meiner Klasse anlegen die ApplicationName heißt?

Ist das so für das Formular richtig?

Delphi-Quellcode:

  public
    { Public-Deklarationen }
    property ApplicationName: string;
  end;

[DeddyH]

Besser wäre

Delphi-Quellcode:

private
  FApplicationName: string;
public
  property ApplicationName: string read FApplicationName write FApplicationName;
end;

Und im Konstruktor FApplicationName gleich auf '' setzen.

[p.abend]

Also ich vermute mal das ich etwas falsch mache, denn der Wert wird nicht angezeigt.

mein RegForm

Delphi-Quellcode:

...
unit RegForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TRegForm = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
    FApplicationName: String;
  public
    { Public-Deklarationen }
    FRegCode: String;
    FRegWebsite: String;
    FRegExeName: String;
    FRegExtension: String;
    FRegFileName: String;
    FRegCustomerName: String;
    FRegCustomerEmail: String;
    FRegCustomerSerial: String;
    property ApplicationName: string read FApplicationName write FApplicationName;
  end;

var
  RegForm: TRegForm;

implementation

{$R *.dfm}

procedure TRegForm.Button2Click(Sender: TObject);
begin
 showmessage(fregcode);
end;

end.
...

Und in meiner Klasse steht jetzt

Delphi-Quellcode:

...
  strict private
    { Private-Deklarationen }
    ...
    FApplicationName: String;
  public
    { Public-Deklarationen }
    property ApplicationName : string read FApplicationName write FApplicationName;
...

[DeddyH]

Wo wird er nicht angezeigt?

[p.abend]

Im RegForm mit der Methode

Delphi-Quellcode:

procedure TRegForm.Button2Click(Sender: TObject);
begin
 showmessage(fregcode);
end;

[DeddyH]

Du setzt eine Property ApplicationName und fragst dann eine Variable fRegCode ab? :gruebel: