Objekte zur Laufzeit erzeugen

[Luki206]

Hi DP

Meine Überschrift trift es nicht ganz da ich ja schon einmal etwas in der Richtung gefragt hatte nur hat das jetzt nichts damit zu tun.

Mein Problem: Ich möchte auf einem zweiten Formular zum Programm start Buttons erzeugen nur, da das Fenster noch nicht erzeugt ist, bekomme ich folgende Fehlermeldung:

Code:

Im Projekt Projekt1.exe ist eine Exception der Klasse $C0000005 mit der Meldung 'access violation at 0x006c439b: read of address 0x000003e0' aufgetreten

Ich habe das zweite Formular aus der Erstellungsreihenfolge herausgenommen und will es selbst erzeugen mit Form.Create nur bekomme ich dabei den Fehler.

Hier ist mein Code:

Delphi-Quellcode:

unit open;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.ValEdit, Vcl.StdCtrls,
  Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.DBGrids, Data.DB, Datasnap.DBClient;

type
  TFrmOpen = class(TForm)
    Button1: TButton;
    Button2: TButton;
    DS: TDataSource;
    CDS: TClientDataSet;
    CDSspeise: TStringField;
    CDSpreis: TFloatField;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure GenerateButton;
  private
    { Private-Deklarationen }
    LBe: Boolean;
    LBut: array of TButton;
  public
    { Public-Deklarationen }
  end;

var
  FrmOpen: TFrmOpen;

implementation

{$R *.dfm}

uses scan, use;

procedure TFrmOpen.Button1Click(Sender: TObject);
begin
if not LBe then begin
FrmOpen.Width := 609;
LBe := true;
end else begin
 FrmOpen.Width := 369;
 Lbe:= false;
end;
end;

procedure TFrmOpen.Button2Click(Sender: TObject);
begin
FrmScan.Show;
end;

procedure TFrmOpen.FormCreate(Sender: TObject);
begin
Lbe := false;
CDS.FileName := 'custom.xml';
if FileExists(CDS.FileName) then begin
  CDS.LoadFromFile(CDS.FileName);
  GenerateButton;
end else begin
  CDS.CreateDataSet;
end;
end;

procedure TFrmOpen.GenerateButton;
var i: Integer;
begin
CDS.First;
 for i := 0 to CDS.RecNo do begin
   LBut[i] := TButton.Create(FrmUse.BoxScro);
   LBut[i].Parent := FrmUse.BoxScro;
   LBut[i].Left := 20 + ((LBut[i].Height + 10) * i);
   LBut[i].Height := 20;
   if (i >= 5) then LBut[i].Height := 20 + ((LBut[i].Height + 10) * i);
   LBut[i].Caption := CDS.FieldByName('test').Value;
   CDS.Next;
 end;
end;

end.

Danke im Voraus.

Luki

[himitsu]

Zitat von Luki206:

mit Form.Create nur bekomme ich dabei den Fehler.

...

Hier ist mein Code:

Sicher daß das der Code ist?

Ich finde das Form.Create garnicht.


Und sicher daß du Form.Create meinst und nicht TForm.Create?

[Luki206]

ja ich meinte TForm.Create und komischer weise ist das jetzt verschwunden jetzt ist's richtig:

Delphi-Quellcode:

procedure TFrmOpen.FormCreate(Sender: TObject);
begin
Lbe := false;
CDS.FileName := 'custom.xml';
if FileExists(CDS.FileName) then begin
  CDS.LoadFromFile(CDS.FileName);
  TFrmUse.Create(self);
  GenerateButton;
end else begin
  CDS.CreateDataSet;
end;
end;

es war nur in der procedure. Jetzt setzt er den Pointer bei

Code:

LBut[i] := TButton.Create(FrmUse.BoxScro);

als Fehler

[Sir Rufo]

Und wann wird der Wert von FrmUse gesetzt?

[Luki206]

Ich weiß gerade nicht was du mit 'Wert' meinst?

[Perlsau]

FrmUse ist doch eine Variable, nicht wahr? Variablen kann man Werte zuweisen, wenn ich mich nicht irre. In deinem Code findet diese Zuweisung nicht statt. Du greifst aber auf FrmUse zu, was dann einen Fehler auslöst.

Übrigens: Meines Wissens nach hat man dir schon gefühlte hundert Mal dringend empfohlen, deinen Quellcode ordentlich zu formatieren. Das kann ja kein Mensch entziffern! Wieso ignorierst du das nach 8 Monaten in diesem Forum noch immer hartnäckig?

[Luki206]

Ich muss mich hier noch einmal melden Jetzt stehe ich vor dem Problem das wenn ich die Form resizee bleiben die Buttons so in der Scrollbox wie sie auch erstellt wurden. Wie könnte ich es schaffen sie auszurichten ohne das sie ständig neu generiert werden müssen?
Danke
Luki

[himitsu]

Wie würstest du das denn machen, wenn du die Form im Form-Designer zusammenklicks?

Anchor, Align, usw.

[Luki206]

Das mit den Anchors haut nicht hin weil ich dann nicht mehr scrollen kann und Align geht auch nicht weil ich ja nicht alle Buttons übereinander legen will. Und die buttons sollen ja auch 'nachrücken' wenn in einer Zeile ein weiterer Button reinpassen würde.

[Dejan Vu]

Was hält dich davon ab, im OnResize einfach deine Controls programmtechnisch neu auszurichten? Das machst Du doch am, Anfang auch?