TNTForm laden

[tom_po]

Ich wollte eine normale TNTForm aufrufen:

Delphi-Quellcode:

procedure TMainForm.TntComboBox2Click(Sender: TObject);
begin
if tntcombobox2.ItemIndex=0 then
tntform1.Show;
end;

kompilieren kann ich, doch beim Aufrufen der Form mit einer TNTCombobox bekam ich ne Fehlermeldung (Zugriffsverletzung) mit dem Hinweis auf diesen Code:

Delphi-Quellcode:

procedure TTntCustomComboBox.CNCommand(var Message: TWMCommand);
begin
  if not TntCombo_CNCommand(Self, Items, Message) then
    inherited;
end;

Warum geht das nicht?

[fwsp]

musst du die form vor dem zugriff erstmal erzeugen?

[tom_po]

Hast Recht fwsp, muss natürlich so heissen:

Delphi-Quellcode:

procedure TMainForm.TntComboBox2Click(Sender: TObject);
begin
if tntcombobox2.ItemIndex=0 then
tntform1.Create(Mainform);
tntform1.Show;
end;

Das Problem ist aber dasselbe

[Sharky]

Hai tom_po,

hast Du auch berücksichtigt das bei diesem Code die Form immer angezeigt wird aber nur bei .ItemIndex = 0 vorher erzeugt wird ;-)

Da sollte noch ein Begin - End zu deiner IF-Abfrage. Und natürlich nicht vergessen die Form auch wieder freizugeben.