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.