OnCreateEventId (class) - Historique des versions

Syfre le 9 janvier 2026 à 13:48

2026-01-09T13:48:28Z

Syfre le 9 janvier 2026 à 13:39

2026-01-09T13:39:37Z

Syfre le 5 décembre 2024 à 09:50

2024-12-05T09:50:45Z

Syfre le 5 décembre 2024 à 09:49

2024-12-05T09:49:27Z

Syfre le 5 décembre 2024 à 09:37

2024-12-05T09:37:57Z

Syfre le 26 septembre 2024 à 08:45

2024-09-26T08:45:30Z

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

{{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.

{|class="wikitable"
|-
|Return
|L'identifiant de l'évènement
|}

Exemple

<source lang='delphi'>
</source>

Voir aussi

{{Footer|Classes métiers (tech)}}
[[category:Classes métiers]]
[[Category:Version1100]]
[[Category:Latest]]

@@ Ligne 23 : / Ligne 23 : @@
      Function doExecute(obj:TitObject):boolean;
    end;
 Function MyTask.doExecute(obj:TitObject):boolean;
@@ Ligne 55 : / Ligne 41 : @@
     else Result := False;
 end;
 //procedure RegisterTasks;

← 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]]

← 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>

← 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]]~~

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

−	Voir aussi	+	Voir aussi :
		+
		+	* [[OnChangeEventId_(class)\|OnChangeEventId]]

@@ Ligne 2 : / Ligne 2 : @@
 <source lang='delphi'>class function OnCreateEventID():string;</source>
-Retire l'identifiant de l'évènement de création d'un objet de cette classe.
+Retourne l'identifiant de l'évènement de création d'un objet de cette classe.
 {|class="wikitable"