Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Mehrere Units verwenden


Gintonik - Di 17.04.07 12:10
Titel: Mehrere Units verwenden
Hallo,

ich habe mein Form1 und mehrere Frames. Ich habe die Frames mit den Namen Unit2 und Unit3 per Uses Unit2,Unit3 eingebunden. Wie kann ich jetzt auf die Inhalte zugreifen?


Delphi-Quelltext
1:
2:
3:
implementation
uses Unit2,Unit3;
{$R *.dfm}


Gintonik - Di 17.04.07 12:13

Ich hatte gedacht es würde gehen, aber jetzt stürtzt mein PRogramm ab.


Roadrunner25 - Di 17.04.07 12:19

hast du den units unter anderen namen abgespeichert? wenn ja, musst du die namen der units unter "usues" angeben!


andras - Di 17.04.07 12:27

hast du die units im gleichen ordner??

probier einmal dass du so darauf zugreifst:

Delphi-Quelltext
1:
Unit1.deinefunktion;                    


Gintonik - Di 17.04.07 12:31

Wenn ich schreibe unit1.form1.button21... findet er meine Komponenten.
Wenn ich dann allerdings Unit2. schreibe, biete er mir nur TFrame2.unit2.TFrame2.Create(); an.
Ich vermute, ich habe irgendwo die Units nicht sauber deklariert o.s.
Sie sind in der Uses-Klausel eingebungen. Was muss ich sonst noch machen?


Gintonik - Di 17.04.07 12:35

So sieht meine Form1 aus:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
interface

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

type
  TForm1 = class(TForm)
    Frame21: TFrame2;
    XPManifest1: TXPManifest;
    Frame31: TFrame3;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.


Gintonik - Di 17.04.07 12:36

Ich gehe kaputt. Ich habe es gerade gesehen, der hat mir die Frames 2 und 3 in 21 und 32 umbenannt. Jetz kann ich auch darauf zugreifen. Ohmann.......

Thx...