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