Procedure TForm.xyz in Unit

[Noobinator]

deine Main Unit sieht doch wie folgt aus:

Delphi-Quellcode:

unit Mainunit;

interface

uses unit2; //hier ein Uses auf deine unit2

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;// globale Formvariable im interface teil

implementation

{$R *.dfm}

deine neue Unit so:

Delphi-Quellcode:

unit Unit2;

interface

implementation
uses Mainunit;//hier ein uses auf deine mainunit;

end.

wenn du das so machst, dann hast du einen Kreuzbezug zwischen deiner Mainunit und der Unit2.
D.H. beide Units greifen aufeinander zu.

Jetzt ist in deiner Mainunit ja var:form1:Tform1; im interface teil, und damit kannst du dank Kreuzbezug direkt drauf zugreifen, auch aus der Unit2

ich finde diese Lösung jedoch ziemlich bescheiden.
Denn wozu mache ich ne Modulare Unit, wenn beide alles kennen
da kann man es gleich in eine Unit schreiben.