Unitübergreifende Prozeduren

[Speedy123]

Hi Leute,

könnt ihr mir sagen, wie ich mit einer ButtonClick-Prozedur in Unit 2 eine Prozedur der Unit 1 aufrufen kann?

[SirThornberry]

unit 2 in die uses einbinden und dann im OnCreate die events der anderen unit zuweisen

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick = unit2.Form2.YourOnClickProc; //"unit2" kann auch wegggelassen werden, dient nur zur übersicht
end;

[Edit]Der Dax scheint recht zu haben und ich sollte mal lesen lernen [/Edit]

[Dax]

Vielleicht soll eine Prozedur in Unit1 aufgerufen werden, nicht der ButtonClick in Unit1 ausgelagert aufgerufen werden..

Delphi-Quellcode:

uses
  Unit1, ...;

....

procedure TForm2.Button1Click(Sender: TObject);
begin
  {Unit1.}Prozedur;
end;

[Speedy123]

Vielen Dank euch beiden!!

Hat wunderbar funktioniert