Form2 Variable auf Form1

[Deven]

oh man ... tu mir bitte nen gefallen und lass deine antworten ...

die helfen mir eh net weiter...

Danke.

[chris01]

Schreibt mal die Source!!
Dann kann ich dir besser helfen!!

[Deven]

hier bitte ... wenn du meinst du findest dich darin zurecht ...

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden1: TMenuItem;
    Neu1: TMenuItem;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
    procedure Neu1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  kartenzahl:integer;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,a: Integer;
const
  NamePrefix = 'Panel';
begin
a := 10;

  for i := 1 to kartenzahl do begin
    TPanel.Create(Self).Name := NamePrefix + IntToStr(i);
    with TPanel(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      width :=  120;
      height := 120;
      Left := 10;
      Top := a;
      a := a +130;
      Parent := self;

    end;
  end;
end;


//Menü Beenden-Button
procedure TForm1.Beenden1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Neu1Click(Sender: TObject);
begin
Form2.showmodal;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
   x,y,i,a: Integer;
const
   NamePrefix = 'Panel';
begin



Case x Of

    1: begin
        a := 10;

        for i := 1 to 2 do begin
        TPanel.Create(Self).Name := NamePrefix + IntToStr(i);
        with TPanel(FindComponent(NamePrefix + IntToStr(i))) do
         begin
          width :=  120;
          height := 120;
          Left := 10;
          Top := a;
          a := a +130;
          Parent := self;
         end;
        end;

        a := 10;
        for i := 1 to 2 do begin
        TPanel.Create(Self).Name := NamePrefix + IntToStr(i);
        with TPanel(FindComponent(NamePrefix + IntToStr(i))) do
         begin
          width :=  120;
          height := 120;
          Left := 140;
          Top := a;
          a := a +130;
          Parent := self;
         end;
        end;
       end;

    2: begin
       ShowMessage('Hallo 2');
       end;
    3: begin
       ShowMessage('Hallo 3');
       end;
    4: begin
       ShowMessage('Hallo 4');
       end;
 end;

end;
end.

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Image1: TImage;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.DFM}

end.

ich habe eben auch versucht eine variable zu benutzen ...

Auf der Form2 nen OK Button gemacht
beim aktivieren des buttons den tag des buttons auf 1 gesetzt

und im form1 den tag abgefragt ob er auf 1 steht
(per if abfrage)

Da gibt er aber immer nen fehler mit zurgriffsverletung und so nen käse ...
nun weiss ich gar nimmer weiter :(

[Marco Haffner]

Du kannst nicht in TForm1.FormCreate auf Form2 zugreifen, es ist noch garnicht erzeugt worden.
Außerdem wäre Form2.ComboBox1.ItemIndex = -1.