OBS/Makros und Scripting/Developer/Edits - Versionsgeschichte

Thiel am 22. Juli 2022 um 07:02 Uhr

2022-07-22T07:02:56Z

← Nächstältere Version		Version vom 22. Juli 2022, 08:02 Uhr
Zeile 1:		Zeile 1:
			{{Makros und Scripting}}
	==Beispiel==		==Beispiel==

Jungmann am 19. Dezember 2019 um 07:59 Uhr

2019-12-19T07:59:50Z

← Nächstältere Version		Version vom 19. Dezember 2019, 08:59 Uhr
Zeile 1:		Zeile 1:
	==Beispiel==		==Beispiel==

	<~~pre~~>		<source lang=delphi>

	type		type
Zeile 127:		Zeile 127:
	OnESCClick : TNotifyEvent (Sender: TObject)		OnESCClick : TNotifyEvent (Sender: TObject)
	OnReturnClick : TNotifyEvent (Sender: TObject)		OnReturnClick : TNotifyEvent (Sender: TObject)
	</~~pre~~>		</source>

Heibutzki am 16. September 2019 um 09:47 Uhr

2019-09-16T09:47:25Z

@@ Zeile 1: / Zeile 1: @@
 <pre>
@@ Zeile 82: / Zeile 84: @@
 end;
 </pre>

Heibutzki: Die Seite wurde neu angelegt: „

  type     TEventHandler = class         {#EventDef}         // procedure OnClick(Sender : TObject);          procedure FrmObjEditEDInit(Sender: TObject);…“

2019-09-13T09:01:46Z

Die Seite wurde neu angelegt: „<pre> type TEventHandler = class {#EventDef} // procedure OnClick(Sender : TObject); procedure FrmObjEditEDInit(Sender: TObject);…“

← Nächstältere Version		Version vom 13. September 2019, 10:01 Uhr
Zeile 1:		Zeile 1:
	~~victims~~<br>~~<br>Have a look at my web-site~~ :: ~~hurt in car accident what to do - [http~~://~~blogs~~.~~rowlandhs~~.~~org~~/~~groups~~/~~apchemistry~~/~~wiki~~/~~ac4a8~~/~~Pedestrian_Accidents~~.~~html visit the up coming webpage]~~,		<pre>

			type
			TEventHandler = class
			{#EventDef}
			// procedure OnClick(Sender : TObject);

			procedure FrmObjEditEDInit(Sender: TObject);
			procedure FrmObjEditEDVorb(Sender: TObject);
			procedure FrmObjEditEDCheck(Sender: TObject; var lOK: Boolean);
			procedure FrmObjEditEDSave(Sender: TObject; cUNr: String);
			end;

			var oEventHandler : TEventHandler;

			{#CompDef}
			var cbl_db_UT_SACHBEARBEITER : TCombiListe;
			// var oLabel : TLabel;

			procedure InitScripter();
			begin

			oEventHandler := TEventHandler.Create();

			{#CompAssign}
			// oLabel := TLabel(FrmListe.FindComponent('oLabel'));

			cbl_db_UT_SACHBEARBEITER := TCombiListe(frmEdit.FindComponent('cbl_db_UT_SACHBEARBEITER'));

			{#EventAssign}
			// oLabel.OnClick := oEventhandler.OnResize;

			frmEdit.OnEDInit := oEventHandler.FrmObjEditEDInit;
			frmEdit.OnEDVorb := oEventHandler.FrmObjEditEDVorb;
			frmEdit.OnEDCheck := oEventHandler.FrmObjEditEDCheck;
			//frmEdit.OnEDSave := oEventHandler.FrmObjEditEDSave;

			//Idx();

			frmEdit.FrmObjEditEDRead(nil);

			frmEdit.Autosize := false;
			frmEdit.Width := 500;
			frmEdit.Height := 550;

			end;

			procedure TEventHandler.FrmObjEditEDInit(Sender : TObject);
			begin
			// CBL-Zuweisungen, Komponenten freischalten/sperren,
			LCBL_Verk(cbl_db_UT_SACHBEARBEITER);
			end;

			procedure TEventHandler.FrmObjEditEDVorb(Sender: TObject);
			var cNr : String;
			begin
			// Felder füllen, die nicht automatisch von der db-Zuweisung gefüllt wurden
			if (frmEdit.lEditMode) then begin
			cNr := DB_NeuNumString(oDB, 'user_tische', 'ut_nr', NEUNUM_APPEND, '', '', '00000000', '99999999', '0', 8);
			frmEdit.xSet('ut_nr', cNr);
			cbl_db_UT_SACHBEARBEITER.Edit.Text := oApplication.cSachbearbeiter;
			cbl_db_UT_SACHBEARBEITER.Show.Text := DB_ReadSQLValue(FrmEdit.oEDB, 'S_VERK', 'v_name', 'v_nr = '+DB_SqlVal(cbl_db_UT_SACHBEARBEITER.Edit.Text));
			end;
			end;

			procedure TEventHandler.FrmObjEditEDCheck(Sender: TObject; var lOK: Boolean);
			begin
			// darf gespeichert werden?
			lOk := true;
			if (lOk) then begin
			if (empty(frmEdit.xGet('ut_name'))) then begin
			lOk := false;
			Meldung('Bezeichnung darf nicht leer sein!');
			end;
			end;

			end;

			procedure TEventHandler.FrmObjEditEDSave(Sender: TObject; cUNr: String);
			begin
			// Speichervorgang...
			end;

			</pre>

Böhrer: Die Seite wurde neu angelegt: „victims

Have a look at my web-site :: hurt in car accident what to do - [http://blogs.rowlandhs.org/groups/apchemistry/wiki/ac4a8/Pedestrian_Accidents.h…“

2017-05-24T17:01:43Z

Die Seite wurde neu angelegt: „victims<br><br>Have a look at my web-site :: hurt in car accident what to do - [http://blogs.rowlandhs.org/groups/apchemistry/wiki/ac4a8/Pedestrian_Accidents.h…“

Neue Seite

victims<br><br>Have a look at my web-site :: hurt in car accident what to do - [http://blogs.rowlandhs.org/groups/apchemistry/wiki/ac4a8/Pedestrian_Accidents.html visit the up coming webpage],

OBS/Makros und Scripting/Developer/Edits - Versionsgeschichte

Thiel am 22. Juli 2022 um 07:02 Uhr

Jungmann am 19. Dezember 2019 um 07:59 Uhr

Heibutzki am 16. September 2019 um 09:47 Uhr

Heibutzki: Die Seite wurde neu angelegt: „ type TEventHandler = class {#EventDef} // procedure OnClick(Sender : TObject); procedure FrmObjEditEDInit(Sender: TObject);…“

Böhrer: Die Seite wurde neu angelegt: „victimsHave a look at my web-site :: hurt in car accident what to do - [http://blogs.rowlandhs.org/groups/apchemistry/wiki/ac4a8/Pedestrian_Accidents.h…“

Heibutzki: Die Seite wurde neu angelegt: „
type TEventHandler = class {#EventDef} // procedure OnClick(Sender : TObject); procedure FrmObjEditEDInit(Sender: TObject);…“

Böhrer: Die Seite wurde neu angelegt: „victims

Have a look at my web-site :: hurt in car accident what to do - [http://blogs.rowlandhs.org/groups/apchemistry/wiki/ac4a8/Pedestrian_Accidents.h…“