OnCreateEventId (class) - Historique des versions

Syfre le 5 décembre 2024 à 09:50

2024-12-05T09:50:45Z

← Version précédente		Version du 5 décembre 2024 à 09:50
Ligne 69 :		Ligne 69 :
	Voir aussi :		Voir aussi :

			* [[RegisterOnCreateEvent_(class)\|RegisterOnCreateEvent]]
	* [[OnChangeEventId_(class)\|OnChangeEventId]]		* [[OnChangeEventId_(class)\|OnChangeEventId]]

Syfre le 5 décembre 2024 à 09:49

2024-12-05T09:49:27Z

← Version précédente		Version du 5 décembre 2024 à 09:49
Ligne 13 :		Ligne 13 :

	<source lang='delphi'>		<source lang='delphi'>
			Type
			MyClass = class(TdbObject)
			//...
			property CanStart:boolean;
			end;

			MyTask = class(TitTask)
			Function Execute():boolean;
			Function doExecute(obj:TitObject):boolean;
			end;

			Function MyTask.Execute():boolean;
			var aMsg:TdbmQueueMessage;
			begin
			Result := False;
			aMsg := ReceivedMsg as TdbmQueueMessage;
			if Assigned(aMsg) then
			begin
			if Assigned(SourceObject) then
			begin
			Result := doExecute(SourceObject);
			end;
			end;
			end;

			Function MyTask.doExecute(obj:TitObject):boolean;
			begin
			if obj is MyClass then
			begin
			if (obj as MyClass).CanStart then
			begin
			AddMessage(Format('object %s ...',[(obj as MyClass).Caption]));
			// do something ...
			end
			else
			begin
			AddMessage(Format('objet %s ne peut pas ...'),[(obj as MyClass).Caption]));
			end;
			Result := True;
			end
			else Result := False;
			end;

			//procedure RegisterTasks;
			begin
			MyClass.RegisterOnCreateEvent();

			MyTask.Subscribe(
			MyClass.OnCreateEventId(),
			[],[]
			);
			end;
	</source>		</source>

Syfre le 5 décembre 2024 à 09:37

2024-12-05T09:37:57Z

← Version précédente		Version du 5 décembre 2024 à 09:37
Ligne 23 :		Ligne 23 :
	[[category:Classes métiers]]		[[category:Classes métiers]]
	[[Category:Version1100]]		[[Category:Version1100]]
	~~[[Category:Latest]]~~

Syfre le 26 septembre 2024 à 08:45

2024-09-26T08:45:30Z

← Version précédente		Version du 26 septembre 2024 à 08:45
Ligne 15 :		Ligne 15 :
	</source>		</source>

	Voir aussi		Voir aussi :

			* [[OnChangeEventId_(class)\|OnChangeEventId]]

Syfre : Page créée avec « {{Version1100}} class function OnCreateEventID():string; Retire l'identifiant de l'évènement de création d'un objet de cette classe. {|... »

2022-12-06T15:46:00Z

Page créée avec « {{Version1100}} <source lang='delphi'>class function OnCreateEventID():string;</source> Retire l'identifiant de l'évènement de création d'un objet de cette classe. {|... »

Nouvelle page