OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms

Aus OBS Wiki
Version vom 24. Juli 2020, 10:17 Uhr von Heibutzki (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „==Allgemeine Funktionen== <syntaxhighlight lang="Delphi"> OnXCreate OnXVisible OnXClose </syntaxhighlight> Die Form wird als '''Frm''' übergeben. ==Speziel…“)
Zur Navigation springen Zur Suche springen

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;