Lazarus: "Kommunikation" zweier Formulare

[STS301]

bitte stell das ganze Projekt einmal hinein, weil bei dem Code suchst du lange um etwas ohne Debugger zu finden.

Neues für 0.9.26: http://wiki.lazarus.freepascal.org/L...6_release_plan

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

[STS301]

@MorphieX: na klar :wall: :wall:
wenn da nicht funktionieren sollte, musst du main in die obrige Uses Klausel einfügen

[Störtebeker]

Danke, an euch alle. Mit dem Hinweis bzw. der Lösung von MorphieX funktioniert es jetzt. :-D

[omata]

Die Art, wie ihr hier eure Programme gestaltet ist aber nicht wirklich euer ernst oder?

Macht euch mal bitte über Zugriffsmethoden, Unit-Schnittstellen und Zirkelschlüsse schlau.

Beispiel ist im Anhang.