HI,

ich erzeuge mit:

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NF := TForm.Create (Self);
  NF.show;
end;

Eine Neue Form! wie bekomm ich auf diese Form Labels, panels, button und so weiter aslo die ganze kompos reihe???


Spider

Moin Spider,

im Prinzip genauso.
Als Owner kannst Du dann das neue Formular angeben, dies ist dann nur später wichtig für die Freigabe der Komponenten, und als Parent gibst Du das Formular an, wenn dies der direkt übergeordnete Container sein soll. Die dynamisch erzeugten Kompos werden immer relativ zum Parent ausgerichtet.

Hoi, entweder mit Variable für das Label oder ohne:

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
NL :TLabel;
begin
  NF := TForm.Create (Self);
  NF.show;
 NL :=TLabel.Create(NF);
 NL.parent := NF;
 NL.caption := 'lalalalei';
end;

und jetzt ohne

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NF := TForm.Create (Self);
  NF.show;
with TLabel.Create(NF) do
begin
parent := NF;
caption := 'lalalalei';
end;
end;

Hallo, kann ich statt einem TLabel auch einen mit Neu/Frame erstellten Frame (der auch in der Objektpalette aufgenommen ist) so dem Formular hinzufügen ?
Benutze ich dazu den Create-Konstruktor, der von TFrame geerbt wurde ?
Oder muß ich einen neuen programmieren ? Eine "Komponente" die mit einem Frame gebastelt wurde, ist ja irgendwie so ein Zwischending zwischen Komponente und bloßem instanzierten Objekt, oder ?

Wenn auf dem Mainform ein Panel liegt, und der Frame soll auf das Panel rauf, dann muß ich doch als Owner das Mainform angeben, und als Parent das Panel, richtig ?

zusammenfalten · markieren

Delphi-Quellcode:

unit Frame_1000821;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, DBTables, StdCtrls, ExtCtrls;

type TFr_1000821 = class(TFrame)
    Edit1_1000821: TEdit;
    Edit2_1000821: TEdit;
    Label1_1000821: TLabel;
    Label2_1000821: TLabel;
    Label3_1000821: TLabel;
    Bevel1_1000821: TBevel;

  private
    { Private declarations }

  public
    { Public declarations }

end;

implementation

{$R *.DFM}

{ TFrame1 }

end.

Bin für jeden Tip dankbar, denn bislang quittiert mir Delphi den Create-Aufruf immer mit einer EAccessviolationExeption. Was daran falsch ist, sagt mit Delphi leider nicht....

Gruss,
ST2000