OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms

Allgemeine Funktionen

OnXCreate
OnXVisible
OnXClose

Die Form wird als Frm übergeben.

Spezielle Zusatzaufrufe

Beispiel: Rechnung per Mail/Fax

OnEdInit
OnEdSave

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(FrmEdit.FindComponent('cb_automail')); 
       oFaxEMailDrucken := TxCheckBox(FrmEdit.FindComponent('cb_FaxEMailDrucken')); 
       oOldDate         := TxCheckBox(FrmEdit.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;