auf procedure einer ander Unit zugreifen

[Alex_ITA01]

so ein kleines beispiel:

MainForm:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TFormName = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure MyOwnProcedure(Wert:Integer);
  end;

var
  FormName: TFormName;

implementation

{$R *.dfm}

{ TForm1 }

procedure TFormName.MyOwnProcedure(Wert: Integer);
begin
  Wert := Wert + 5;
end;

procedure TFormName.Button1Click(Sender: TObject);
begin
  MyOwnProcedure(5);
end;

end.

Form2:

Delphi-Quellcode:

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
  FormName.MyOwnProcedure(10);
end;

end.

Das geht!

Viel Glück

MFG Alex