Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
Re: prozedur in Data Module auf andere Form anwenden
10. Mär 2010, 11:28
Wie sieht es so aus?
Delphi-Quellcode:
procedure TPCdmod.Q_TIMEAfterOpen(DataSet: TDataSet);
begin
PCchrt.Opentime(PCdmod.Q_TIME['Min']); // Opentime ist in Public eingetragen
end;
//und in Hauptform:
procedure TPCchrt.Opentime(const TimeStr: string);
begin
cxTextEdit2.Text := TimeStr;
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|