OBS/Makros und Scripting/Anwendungsbereiche/Customize xForms: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
 
(2 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
{{Makros und Scripting}}
==Allgemeine Funktionen==
==Allgemeine Funktionen==


Zeile 35: Zeile 36:


   if (Assigned(FrmEdit)) then begin
   if (Assigned(FrmEdit)) then begin
       oAutoMail        := TxCheckBox(FrmEdit.FindComponent('cb_automail'));  
       oAutoMail        := TxCheckBox(Frm.FindComponent('cb_automail'));  
       oFaxEMailDrucken := TxCheckBox(FrmEdit.FindComponent('cb_FaxEMailDrucken'));  
       oFaxEMailDrucken := TxCheckBox(Frm.FindComponent('cb_FaxEMailDrucken'));  
       oOldDate        := TxCheckBox(FrmEdit.FindComponent('cb_OldDate'));  
       oOldDate        := TxCheckBox(Frm.FindComponent('cb_OldDate'));  
   end;
   end;
      
      

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;