Version vom 14. November 2012, 10:25 Uhr

Aufruf über STRG-F12 im Edit-DialogName des Edit's ist der KlassennameMakro Gilt Standardmäßig für alle User (000) es kann aber auch ein spezifischer Benutzer angegeben werden.
Folgende Aufrufe sind möglich:
InitScripter wird nach dem Create des Fensters aufgerufen

Edit Kontroll Funktionen	Tastatur Funktionen

InitScripter
CheckIfChanged	OnF1
OnESC	OnF2
OnEdInit	OnF3
OnEdFormInit	OnF4
OnEdClose	OnF5
OnEdRead	OnF6
OnEdShow	OnF7
OnEdVorb	OnF8
OnEdCheck	OnF9
OnEdSave	OnF10
OnEdSaveDirect	OnPGDN
OnEdReadDirect	OnPGUP
	OnRETURN

Jede Makro Funktion hat 2 Aufrufe
1 Bevor die interne Delphi Funktion aufgerufen wird, gibt es einen Makro-Aufruf mit der Erweiterung Before_. Hat die Funktion den Rückgabewert 'Ready', so wird die interne Delphi-Funktion nicht mehr aufgerufen. Diese Funktion wird unabhängig von der Delphi Funktion aufgerufen.
2 Standard Aufruf nach der internen Delphi Funktion. Diese wird nur ausgeführt wenn es in Delphi eine On... Funktion bestückt wird.

Globale Variable FrmEdit

Über die Variable FrmEdit kann auf alle Felder und auf die Property des Edit Objekt zugegriffen werden. Folgende Property's stehen zu Verfügung

Property	Erläuterung

'lCheckOK'	Kann bei der Überprüfung von F2 benutzt werden ob die Eingabewerte korrekt eingegeben wurden sind.Bei False wird nicht abgespeichert.
'lEditMode'	True = InsertmodusFalse = Editmodus
'lDataUpdate'	True = Daten des Edits wurden verändert
'lDataChecked'	False=Daten werden auf gültigkeit überprüft (lCheckok)
'lCloseInsert'	Edit-Fenster wird (lEditMode = True) nach F2 geschlossen
'lCloseEdit'	Edit-Fenster wird (lEditMode = False) nach F2 geschlossen
'lDataESC'	Soll bei einer Änderung im Edit eine Abfrage beim Verlassen der Maske erscheinen
'lCanLock'	Ob bei der Eingabe nur eine Person den Datensat editieren darf
'lInsert'	Edit Felder im Insert/Überschreibemodus (zur zeit keine Funktion)

Auslesen von komponenten FrmEdit.xGet('a_vorname');Setzen von Komponenten FrmEdit.xSet('a_vorname','Meier');

Beispiel:

function OnEdCheck():string;
var oSte     : TEdit;
    cEdit    : String;
    cVorname : String;
begin

   if (FrmEdit.lEditMode) then begin
      Meldung('Edit Mode True');
   end else begin
      Meldung('Edit Mode False');
   end;

   Meldung(FrmEdit.stred_db_a_name.Text);

   oSte := FrmEdit.FindComponent('stred_db_a_name');
   Meldung(oSte.Text);

   cVorname:= FrmEdit.xGet('a_vorname');
   Meldung(cVorname);

   if (Empty(cVorname)) then begin
       FrmEdit.lCheckOk := False;
       Meldung('Bitte Vorname eingtragen');
   end;

end;

Wenn möglich immer mit xGet und xSet auf Komponenten Werte zugreifen.

Auto import 15:29, 25. Aug. 2011 (CEST)

OBS/Adminhilfe/Anleitung Customize Edit: Unterschied zwischen den Versionen

Version vom 14. November 2012, 10:25 Uhr

Globale Variable FrmEdit

Navigationsmenü

OBS/Adminhilfe/Anleitung Customize Edit: Unterschied zwischen den Versionen

Version vom 14. November 2012, 10:25 Uhr

Globale Variable FrmEdit

Navigationsmenü

Suche