Ereignis - Proceduren auf der Form

[s-off]

Hallo,

Unit1:

Delphi-Quellcode:

Unit Unit1;

Interface

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

Type
   TForm1 = Class(TForm)
      Button1: TButton;
      Button2: TButton;
      Procedure Button1Click(Sender: TObject);
      Procedure Button2Click(Sender: TObject);
   private
      Procedure DoAnything;
   End;

Var
   Form1: TForm1;

Implementation

Uses Unit2;

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Begin
   DoAnything;
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
   Unit2.TueIrgendwas;
End;

Procedure TForm1.DoAnything;
Begin
   //DoAnything
End;

End.

Unit2

Delphi-Quellcode:

Unit Unit2;

Interface

Procedure TueIrgendwas;

Implementation

Procedure TueIrgendwas;
Begin
   //TueIrgendwas
End;

End.