i try to send specific message with TUniAlerter component but it doesn't work.
Code: Select all
//step 1:
procedure TForm1.UniTable1BeforePost(DataSet: TDataSet);
begin
DataSet.FieldByName('UTI_ID').AsString := FUserLogin;
end;
//step 2:
procedure TForm1.UniTable1AfterPost(DataSet: TDataSet);
begin
UniAlerter1.SendEvent('TR_AFTER_UPD', ' RecNo = ' + IntToStr(DataSet.RecNo) +
' UserLogin = ' + DataSet.FieldByName('UTI_ID').AsString); // Sends an event with Name and content Message.
end;
//step3:
procedure TForm1.UniAlerter1Event(Sender: TDAAlerter; const EventName,
Message: string);
begin
if (EventName = 'TR_AFTER_UPD') then
Memo1.Lines.Add(Message + ' ' + IntToStr(Application.Handle));
end;