Hallo Alle,
mit einer Prozedur die von der Data Module Form, aufgrund eines Events ausgelöst wird, möchte ich ein Objekt (zb. ein TextEdit) in einer anderen Form füllen lassen.
Das Problem ist mir schon länger ein Rätsel, konnte es aber bislang immer umgehen.
Folgendes ist der Fall:
In der Hauptform steht ein TextEdit.
Über eine Modal-Form verbinde mit einer Datanbank (dessen Komponenten in der Data Module stehen), und öffne eine
Query.
Als after-open Event der
Query sollte ein Wert in ein TextEdit der Haupform geschrieben werden.
Obwohl es nirgends Fehlermeldungen gibt - wird das TextEdit nicht gefüllt
Delphi-Quellcode:
procedure TPCdmod.Q_TIMEAfterOpen(DataSet: TDataSet);
begin
with PCchrt do // Hauptform
begin
cxTextEdit2.Text := PCdmod.Q_TIME['Min']; // geht nicht, aber keine Fehler
end;
end;
Delphi-Quellcode:
procedure TPCdmod.Q_TIMEAfterOpen(DataSet: TDataSet);
begin
with PCchrt do // Hauptform
begin
Opentime; // Opentime ist in Public eingetragen
end;
end;
//und in Hauptform:
procedure TPCchrt.Opentime;
begin
showmessage(PCdmod.Q_TIME['Min']); // geht !
cxTextEdit2.Text := PCdmod.Q_TIME['Min']; // geht nicht und immer noch keine Fehler
end;
Delphi-Quellcode:
// natürlich gehts mit einem button in der Hautform:
procedure TPCchrt.cxButton4Click(Sender: TObject);
// connect DB
begin
cxTextEdit2.Text := PCdmod.Q_TIME['
Min'];
end;