Regsistrierungs Assistent

[T.E.]

ok hier hast du den code für die seite mit den fragen:

Delphi-Quellcode:

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Image1: TImage;
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

uses Unit2, Unit4, Unit5;

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  Form2.show;
  Form3.Visible := false;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  Form4.show;
  Form3.Visible := false;
end;

procedure TForm3.CheckBox5Click(Sender: TObject);
begin
  memo1.Enabled := true;
end;

procedure TForm3.CheckBox1Click(Sender: TObject);
begin
  form4.memomsg.Lines.Text := 'Tst';
end;

procedure TForm3.CheckBox2Click(Sender: TObject);
begin
  if checkbox2.Checked = true then
  begin
    Form3.Edit2.text := 'Der Benutzer möchte am Programm zur Verbesserung der Benutzerfreundlichkeit teilnehmen!';
  end else
  begin
    Form3.Edit3.Text := ' ';
  end;
end;

procedure TForm3.CheckBox3Click(Sender: TObject);
begin
  if checkbox3.Checked = true then
  begin
    Edit3.Text := 'Der Benutzer möchte über Updates/neue Versionen informiert werden!';
  end else
  begin
    Edit3.text := ' ';
  end;
end;

procedure TForm3.CheckBox4Click(Sender: TObject);
begin
  if checkbox4.Checked = true then
  begin
    Edit4.Text := 'Der Benutzer möchte über andere Produkte informiert werden!';
  end else
  begin
    edit4.Text := ' ';
  end;
end;

end.