Lazarus: "Kommunikation" zweier Formulare

[MorphieX]

Funzt denn das?

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 

uses
  main;

{ 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.