unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, TabNotBk, Menus, Grids, Calendar;
type
TForm1 =
class(TForm)
MainMenu1: TMainMenu;
Name1: TMenuItem;
N2: TMenuItem;
Datei1: TMenuItem;
Speichern1: TMenuItem;
Drucken1: TMenuItem;
Beenden1: TMenuItem;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
GroupBox2: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
ComboBox2: TComboBox;
Bearbeiten1: TMenuItem;
RichEdit1: TRichEdit;
RichEdit2: TRichEdit;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Beenden1Click(Sender: TObject);
procedure Bearbeiten1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
Form2.Edit1.Clear;
Form2.ComboBox1.ItemIndex:=-1;
Form2.RadioButton1.Checked:=False;
Form2.RadioButton2.Checked:=False;
Form2.Show;
end;
end.