Delphi Can

Merhaba arkadaşlar, 

Biraz basit olacak ama form1 deki yazdığım bir fonksiyonu form2 den nasıl çağırabilirim?

Aşağıdaki örnek kullanım umarım size fikir verir. Gerekli açıklamalar kod içerisinde comment olarak yapıldı.

Fonksiyonun bulunduğu unit (burada unit1)

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
 TForm1 = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }
   function Toplama(a,b:integer):integer;    // başka bir formdan çağırmak için public kısmına fonksiyon prototipi tanımlanır
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}


function TForm1.Toplama(a, b: integer): integer;  // fonksiyonun kendisi
begin
 result := a + b;
end;

end.

Fonksiyonun çağrıldığı diğer form (unit2)

unit Unit2;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
 TForm2 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation
uses unit1;   // fonksiyonun bulunduğu unit uses kısmına ekleniyor
{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var sonuc:integer;
begin
 sonuc := form1.Toplama(2,4);    // Form1 deki foksiyonu çağırma
 //....
end;

end.

Teşekkürler