Thema: Delphi Problem mit 3 Formularen

Einzelnen Beitrag anzeigen

Lolzor

Registriert seit: 2. Jun 2008
10 Beiträge
 
#5

Re: Problem mit 3 Formularen

  Alt 3. Jun 2008, 13:43
Erstmal danke für die schnellen antworten
@mkinzler so sieht das bei mir mit 2 Formularen aus

Formular 1
Delphi-Quellcode:
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
var
T: TForm2;

procedure TForm41.Button1Click(Sender: TObject);
begin
T := TForm2.Create(self);
T.Label1.Caption := 'Text';
T.ShowModal;
T.Free;

end;

end.
Formular 2
Delphi-Quellcode:
unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.


@blackdead Ok Ich habe jetzt noch das problem das wenn ich Label2 geändert habe auch Form3 angezeigt haben will das würde ich dann so machen

Delphi-Quellcode:
var
s: TForm3;

procedure TForm38.Button1Click(Sender: TObject);
begin
Form3.Label2.Caption := 'Hans2';
s := TForm39.Create(self);
s.ShowModal;
s.Free;

end;
aber durch "Create" wird ja was erstellt und so habe ich dann ja nicht die veränderten Labels sondern die unveränderten

@omata ich werde mich dann mal mit Zugriffsmethoden beschäftigen
  Mit Zitat antworten Zitat