Edit und Listbox zur laufzeit

[clock50]

Hallo Leute ich habe ein kleines Problem:

Delphi-Quellcode:

with TEdit.Create(Self) do
  begin
    Name := 'EBriefe';
    Parent := Form1.JvNavPanelPage1;
    Top := 300;
    Align := alBottom;
  end;
with TJvListBox.Create(Self) do
  begin
    Name := 'LBriefe';
    Parent := Form1.JvNavPanelPage1;
    Align := alclient;
  end;

Wie kann ich den dann darauf zugreifen? Oder habe ich etwas vergessen?

[hoika]

Hallo,

FindComponent oder eine (Form-)Variable benutzen.


Heiko

[fui-tak]

Der Code sollte folgendermaßen funktionieren:

Delphi-Quellcode:

var EBriefe: TEdit;
    LBriefe: TJvListBox;

...

EBriefe := TEdit.Create(Self);
with EBriefe do
  begin
    Name := 'EBriefe';
    Parent := Form1.JvNavPanelPage1;
    Top := 300;
    Align := alBottom;
  end;

LBriefe := TJvListBox.Create(Self); //gibt es eine Komponente "TJvListBox"? Sonst würd ich einfach "LBriefe := TListBox.Create(Self);" schreiben
with LBriefe do
  begin
    Name := 'LBriefe';
    Parent := Form1.JvNavPanelPage1;
    Align := alclient;
  end;

[shmia]

Tipp: Property Parent immer erst am Schluss zuweisen, um unnötige Windows Botschaften zu vermeiden.