Lazarus: "Kommunikation" zweier Formulare

[Störtebeker]

Boa, Lazarus scheint doch etwas komplizierter zu sein, als Delphi.

Folgener Quelltext (Lazarus):

Delphi-Quellcode:

unit meta;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  ComCtrls, StdCtrls;

type

  { TForm3 }

  TForm3 = class(TForm)
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    PageControl1: TPageControl;
    Panel1: TPanel;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form3: TForm3;

implementation

{ TForm3 }

procedure TForm3.Button1Click(Sender: TObject);
begin
  Form3.close;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  Form1.SynEdit1.seltext:='META name="Generator" content="'+Form3.Edit1.Text+'">'+#13#10+'';
end;

initialization
  {$I meta.lrs}

end.

Zitat:

meta.pas(50,7) Error: Identifier not found "main"
meta.pas(58) Fatal: There were 1 errors compiling module, stopping

Es soll auf Buttonklick der Text in dem Editfeld von Form3 in das SynEdit von Form1 geschrieben werden. Im Quelltext von Form1 (main.pas) ist die Form3 (meta.pas) bereits in den "Uses" mit drin, welshalb ich die Fehlermeldung:

Zitat:

meta.pas(9,27) Fatal: Circular unit reference between meta and main

kriege, wenn ich die main.pas in die meta unit unter "Uses" mit eintrage. Unter Delphi hatte ich damit keine Probleme.

Ich hoffe, dass mir einer von euch mit dem Problem helfen kann.

MfG
Störtebeker