Form überall wiederverwenden? Dafür Unit?

[Hansa]

Ihr vergesst, dass diese frmArtSuch1 auch Vorlagen hat. Zunächst nur direkt die frmArtSuch. Die neue ist also anfangs identisch mit der Vorlage. Aber nur bis dahin, als ich das FormCreate hinzugefügt habe. Die Vorlage kommt aber so zustande : TfrmArtSuch = class(TfrmSuch) Art steht für Artikel. Ich will aber nach mehr suchen und zwar in DB. Deshalb ist auch ein Dataset zu sehen. Wozu dient das wohl ? Tja, es gibt viele Tabellen in denen man was suchen muss. SucheDaten beinhaltet also die SQL-Statements (anfangs nur deklaliert). Resultat der Funktion ist : SucheDaten := not SuchDS.IsEmpty; Egal welche Suche, gemeinsam ist immer folgendes : es wird was gefunden, man ist zu weit/zu schnell, will zurück etc. Und deshalb ist das alles sehr früh eingebaut.

Delphi-Quellcode:

procedure TfrmSuch.btnEndeClick(Sender: TObject);
begin
  ModalResult := mrAbort;
end;

procedure TfrmSuch.btnGefundenClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

Ich bin doch nicht so blöd und mache das jeweils für Artikel, Adressen etc. alles wieder neu ?