FireDAC.Comp.Client.TFDCustomEventAlerter.OnAlert
Delphi
property OnAlert: TFDEventAlerterEvent read FOnAlert write FOnAlert;
C++
__property TFDEventAlerterEvent OnAlert = {read=FOnAlert, write=FOnAlert};
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
event | public | FireDAC.Comp.Client.pas FireDAC.Comp.Client.hpp |
FireDAC.Comp.Client | TFDCustomEventAlerter |
Description
Cet événement se déclenche quand un événement SGBD est déclenché.
Utilisez le gestionnaire d'événement OnAlert pour spécifier un gestionnaire d'événement qui est déclenché quand l'un des événements SGBD spécifiés dans la propriété FireDAC.Comp.Client.TFDCustomEventAlerter.Names est déclenché. Pour démarrer la réception des notifications d’événements, les événements doivent être recensés en utilisant la méthode Register ou la propriété Active. Le gestionnaire d'événement peut être déclenché dans son propre thread d'alerte d'événement (False) ou dans le thread principal de l'application (True), en fonction de l'option Options.Synchronize.
Le gestionnaire d'événement reçoit trois arguments :
ASender
-- La référence de l'alerte d'événement.AEventName
-- Spécifie le nom de l'événement.AArgument
-- Spécifie les arguments supplémentaires de l'événement. Les arguments dépendent totalement du SGBD et de l'application. Si aucun argument n'est spécifié, il doit exister une valeur Null ou Unassigned. Il s'agit d'une valeur d'une variante scalaire quand un seul argument est spécifié ; sinon, il s'agit d'un tableau variant de valeurs.
Exemple
procedure TForm1.FDEventAlerter1Alert(ASender: TFDCustomEventAlerter;
const AEventName: String; const AArgument: Variant);
begin
if CompareText(AEventName, 'Customers') = 0 then
qryCustomers.Refresh
else if CompareText(AEventName, 'Orders') = 0 then
qryOrders.Refresh;
end;