Einzelnen Beitrag anzeigen

Benutzerbild von Taladan
Taladan

Registriert seit: 5. Aug 2003
Ort: Osnabrück
505 Beiträge
 
Delphi 2005 Professional
 
#12

Re: Auf anderes Fenster zugreifen

  Alt 2. Jul 2005, 14:09
Leider funktioniert es immer noch nicht.
Hab jetzt folgendens:

Hauptform:
Delphi-Quellcode:
type
  Hauptfenster = class(System.Windows.Forms.Form)
  private
    { Private-Deklarationen }
    function getLabel : string;
    procedure SetLabel(lab : string);
  public
    property Labeltext : string read getLabel write SetLabel;
    constructor Create;
  end;

function Hauptfenster.getLabel : String;
begin
  result := Label1.Text;
end;

procedure Hauptfenster.SetLabel(lab : String);
begin
  label1.Text := lab;
end;
MDI-Child

Delphi-Quellcode:
type
  DatenBox = class(System.Windows.Forms.Form)
  private
    { Private-Deklarationen }
    function get_MainForm : Form;
    property Mainform : Form read get_MainForm;
  end;

function DatenBox.get_MainForm : Form;
begin
   result := Owner as Form;
end;
Wenn ich obriges richtig verstanden habe, dann müste ich doch so zu greifen können, oder?

  Mainform.Labeltext := 'Test';
Edit: Und mein Aufruf der Form

Delphi-Quellcode:
  with DatenBox.Create do begin
    MdiParent := self;
    Show;
  end;
Marco
Wer Rechtschreibfehler findet, der darf sie behalten

Carpe Diem - Nutze den Tag (und zwar den ganzen!)
  Mit Zitat antworten Zitat