OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Böhrer (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „Many women consider the jewels very good given as gifts as security if they are left alone to fend on a self-employed basis. Other investors consider jewels fo…“) |
Keine Bearbeitungszusammenfassung |
||
(4 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt) | |||
Zeile 1: | Zeile 1: | ||
{{Makros und Scripting}} | |||
==Allgemeine Funktionen== | |||
<syntaxhighlight lang="Delphi"> | |||
OnXCreate | |||
OnXVisible | |||
OnXClose | |||
</syntaxhighlight> | |||
Die Form wird als '''Frm''' übergeben. | |||
==Spezielle Zusatzaufrufe== | |||
===Beispiel: Rechnung per Mail/Fax=== | |||
Zusatzfunktionen: | |||
<syntaxhighlight lang="Delphi"> | |||
OnEdInit | |||
OnEdSave | |||
</syntaxhighlight> | |||
Beispiel: | |||
<syntaxhighlight lang="Delphi"> | |||
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; | |||
</syntaxhighlight> |
Aktuelle 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;