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;
...