Probleme beim Zugreifen auf 2. Form

[Acuaplano]

Zu Befehl.

Tut mir Leid dafür, dass da nichts kommentiert ist. Wollte das eigentlich zum Ende hin machen, aber ich hoffe das sollte nicht zu Schlimm sein.
Hab da auch teilweise ein paar Zeilen eingefügt zum Testen eingefügt, falls da mal was sinnlos erscheint.

Edit: Es muss zuerst eine neue Dialogbox im Graphen erstellt werden (Neue Dialogbox -> 1 Verzweigung), bevor was im anderen Fenster (2. Form) verändert werden kann.

[Uwe Raabe]

Funktioniert doch.

Form2.Test2 wird in TForm1.DeleteClick ausgeführt. Ich erzeuge also über Neue DialogBox - 1 Verzweigung ein Neues Objekt und wähle dann über das Kontextmenü "Löschen" an. Danach steht im Label1 ein "No". Das alles mit der EXE im Zip.

[Acuaplano]

Ja, es funktioniert mit Label1 auf Form1, aber nicht mit Label1 auf Form2 (dort wo links "brum" steht ).
Es stehen beide Befehle zum ändern in der gleichen Prozedur und es funktionieren tut nur einer

[Uwe Raabe]

Sorry Lazarus habe ich nicht. Die ProcessMessages-Aufrufe kommen mir allerdings recht überflüssig vor.

[Acuaplano]

Zitat von Uwe Raabe:

Sorry Lazarus habe ich nicht. Die ProcessMessages-Aufrufe kommen mir allerdings recht überflüssig vor.

Die hab' ich auch nur zum Test reingepackt... ich werd' nachher einfach mal versuchen ein komplett neues Projekt zu erstellen und den Code dann dareinkopieren. Vielleicht ist es ja ein Bug von Lazarus aus.

[Acuaplano]

Ich hab's eben nochmal mit einem neuen Projekt probiert und entweder ist mein Lazarus verbuggt oder ich mache was falsch:
Neues Projekt erstellt - 2 Formulare - Zweites Formular in's erste eingebunden - Button und Labels darauf platziert und gleiches Problem: tut sich nix

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit2;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Label1.Caption := 'Form2';
  Label1.Caption := 'Form1';

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(self);
  Form2.Show;
end;

end.

Delphi-Quellcode:

unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm2 }

  TForm2 = class(TForm)
    Label1: TLabel;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form2: TForm2;

implementation


{$R *.lfm}

end.

Irgendwas muss ich doch falsch gemacht haben

[p80286]

Wo ist das Problem:

Delphi-Quellcode:

program Project2;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

(* *************************************** *)
unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption:='Labello1';
  form2.label1.Caption:='labello2';
  form2.show;
end;

end.
(* ********************************************************* *)
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.

funktioniert!
Gruß
K-H

[Olli73]

Zitat von Acuaplano:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(self);

Du hast aber schon dafür gesorgt, dass Form2 nicht bereits auch automatisch erstellt wird? (Ich habe keine Ahnung, ob Lazarus sich da standardmäßig so verählt wie Delphi, d.h. die Forms selber erstellt)