IBEvents

[toyohj60]

Hallo,

klar, eigenlich logisch:

Delphi-Quellcode:

Form1.OnActivate:
.
.
.
  if IBEvents1.Registered = False then
  begin
    IBEvents1.Database:= DataModule2.IBDatabase1;
    IBEvents1.Events.Add('UPDATE ERFOLGREICH');
    IBEvents1.Registered:= True;
  end;
.
.
.


procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  Application.MessageBox('Das ist ein Test','Hinweis',36);
end;

und jetzt noch zum Beenden:

Delphi-Quellcode:

Form1.OnClose;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  If DataModule2.IBTransaction1.Active = True then DataModule2.IBTransaction1.Commit;
  IBEvents1.UnRegisterEvents;
  if IBEvents1.Registered = True then IBEvents1.Registered:= False;
  DataModule2.IBDatabase1.Close;
end;

[edit=Sharky]Delphi-Tags gesetzt Mfg, Sharky[/edit]