Button på Form til at udføre Procedure på anden Form

Du sætter Unit2(eller den unit som proceduren er i) i uses, og så kalder du bare funktionen som normalt.

Kan du ikke prøve at lave et eksempel

Jo:


Unit1:

unit Unit1;

interface

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

...

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  enprocedure;
end;

end.


Unit2:

unit Unit2;

....

var
  Form2: TForm2;

procedure enprocedure;

implementation

{$R *.dfm}

procedure enprocedure;
begin
  ShowMessage('En Procedure');
end;

end.

Hvis nu min procedure ser sådan ud:


procedure TMainForm.LAddClick(Sender: TObject);
var
  Item: TListItem;
begin
  Item:= ListFilm.Items.Add;
  Item.Caption:= ETitel.Text;
  Item.SubItems.Add(ESkuespiller.Text);
  Item.SubItems.Add(EGenre.Text);
  Item.SubItems.Add(ETid.Text);
  Item.SubItems.Add(CBType.Text);
end;

Hvordan skal den så se ud??
Undskyld at jeg er besværlig

Du kan gøre sådan:

MainForm.LAddClick(nil);

ok tak!?