Einzelnen Beitrag anzeigen

Andy79

Registriert seit: 23. Jul 2007
10 Beiträge
 
#1

Frame hat kein übergeordnetes Fesnter

  Alt 17. Aug 2007, 11:26
habe folgenden Code, einmal gehts einmal nicht, aber warum?

Code:
procedure TfEtikettendruck.Sonderetiketten1Click(Sender: TObject);
begin
  frSonderetiketten := TfrSonderetiketten.Create(fEtikettendruck);
  frSonderetiketten.Parent := fEtikettendruck;
  with TAdsQuery.Create(nil) do
  try
    Databasename := 'Etikettendruck';
    SQL.Add('select Rahmen from Rahmen');
    SQL.Add('where Sonder=true');
    Open;
    while not eof do
    begin
      frSonderetiketten.ListBoxReports.Items.Add(FieldByName('Rahmen').asString);
      Next;
    end;
  finally
    Free;
  end;
end;

procedure TfEtikettendruck.Versandetiketten1Click(Sender: TObject);
begin
  frVersandetiketten := TfrVersandetiketten.Create(fEtikettendruck);
  frVersandetiketten.Parent := fEtikettendruck;
  with frVersandetiketten do
  begin
    ComboBoxDrucker.Items := Printers.Printer.Printers;
    ComboBoxDrucker.Items.Add('Standarddrucker');
    ComboBoxDrucker.Text := 'Standarddrucker';
  end;
end;
Bei Aufruf des Frames für Sonderetiketten keine Probleme,
bei Aufruf für Versandetiketten kommt aber der Fehler: "Element frVersandetiketten hat kein übergeordnetes Fenster" warum?
Es ist doch im Prinzip der selbe Aufruf. Die Frame sehen auch gleich aus vom Code her.
Wäre dankbar für nen Tip.

Gruß Andy
  Mit Zitat antworten Zitat