OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Keine Bearbeitungszusammenfassung |
|||
Zeile 1: | Zeile 1: | ||
{{Makros und Scripting}} | |||
==Allgemeine Funktionen== | ==Allgemeine Funktionen== | ||
Version vom 24. Juli 2020, 10:55 Uhr
Allgemeine Funktionen
OnXCreate
OnXVisible
OnXClose
Die Form wird als Frm übergeben.
Spezielle Zusatzaufrufe
Beispiel: Rechnung per Mail/Fax
Zusatzfunktionen:
OnEdInit
OnEdSave
Beispiel:
function OnEdSave():string;
begin
end;
function OnEdInit():string;
var oAutoMail : TxCheckBox;
oFaxEMailDrucken : TxCheckBox;
oOldDate : TxCheckBox;
begin
oAutoMail := NIL;
oFaxEMailDrucken := NIL;
oOldDate := NIL;
if (Assigned(FrmEdit)) then begin
oAutoMail := TxCheckBox(Frm.FindComponent('cb_automail'));
oFaxEMailDrucken := TxCheckBox(Frm.FindComponent('cb_FaxEMailDrucken'));
oOldDate := TxCheckBox(Frm.FindComponent('cb_OldDate'));
end;
if (Assigned(oAutoMail)) then begin
oAutoMail.checked := True;
Meldung('oAutoMail');
end;
if (Assigned(oFaxEMailDrucken)) then begin
oFaxEMailDrucken.checked := True;
Meldung('oFaxEMailDrucken');
end;
if (Assigned(oOldDate)) then begin
oOldDate.checked := True;
Meldung('oOldDate');
end;
end;