Brug en procedure fra form1 i form2??

du uses form 1

Hvis proceduren ligger i din Public del i form1, og du i din Uses del af form2, har inkluderet form1, så burde du også kunne gøre som du beskriver.

snowball: hvordan sørger jeg for at den ligger i min Public del..??

Se nedenstående eksempel:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    //Her erklærer du din procedure
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.

Jeg har skrevet dette:
  public
  procedure downloadkalender(id:integer;dato:string);
  end;

Så får jeg en fejl.
Er det bare mig der er noget galt med??

Du kan få en fejl hvis du ikke angiver hvilket form din procedure tilhører.

En hurtig test:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure VisMinBesked(pBesked: String);
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

Uses unit2;

procedure TForm1.VisMinBesked(pBesked: String);
begin
  Showmessage(pBesked);
end;

{$R *.DFM}

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

end.



unit Unit2;

interface

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

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

var
  Form2: TForm2;

implementation

Uses Unit1;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form1.VisMinBesked('Dette er en test');
end;

end.

efter lidt ændringer virker det nu...
smid et svar snowball

:)