shmia: getestet, gibt aber Zugriffsverletzung, d.h. die Prozedur wird richtig angesprungen, aber das Fenster bleibt in der Taskleiste.
Der Aufruf der Unterform (mit setzen des Filters) sieht so aus:
Delphi-Quellcode:
procedure TF_Projekte.SpeedButton4Click(Sender: TObject);
var i : integer;
begin
if application.FindComponent('F_ProjStamm') = nil then
begin
with TF_ProjStamm.Create(Application) do
begin
adoconnection1 := self.ADOConnection1;
qry_Dateneingabe.connection := adoconnection1;
qry_Dateneingabe.open;
qry_Dateneingabe.Filter := 'ID = '
+ self.qry_Dateneingabe.fieldbyname('ID').Asstring;
qry_Dateneingabe.Filtered := true;
Show;
end;
end;
end;
Die Funktion mit der die Daten gespeichert werden sieht so aus:
Delphi-Quellcode:
procedure TF_ProjStamm.SpeedButton2Click(Sender: TObject);
begin
if qry_Dateneingabe.fieldbyname('LINT_Kunde').Value = null then
begin
showmessage('Bitte einen Kunden auswählen !');
exit;
end;
qry_Dateneingabe.post;
end;
Vielleicht gibt das weitere Anhaltspunkte ..
