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

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
(Die Seite wurde neu angelegt: „==Allgemeine Funktionen== <syntaxhighlight lang="Delphi"> OnXCreate OnXVisible OnXClose </syntaxhighlight> Die Form wird als '''Frm''' übergeben. ==Speziel…“)
Keine Bearbeitungszusammenfassung
 
(3 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
{{Makros und Scripting}}
==Allgemeine Funktionen==
==Allgemeine Funktionen==


Zeile 11: Zeile 12:
==Spezielle Zusatzaufrufe==
==Spezielle Zusatzaufrufe==
===Beispiel: Rechnung per Mail/Fax===
===Beispiel: Rechnung per Mail/Fax===
Zusatzfunktionen:


<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
Zeile 16: Zeile 19:
OnEdSave
OnEdSave
</syntaxhighlight>
</syntaxhighlight>
Beispiel:
<syntaxhighlight lang="Delphi">
<syntaxhighlight lang="Delphi">
function OnEdSave():string;
function OnEdSave():string;
Zeile 31: 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;
Abgerufen von „http:///index.php?title=OBS/Makros_und_Scripting/Anwendungsbereiche/Customize_xForms&oldid=58069“