Código Delphi [-] procedure TCustomerData.IBEvents1EventAlert(Sender: TObject; EventName: String; EventCount: Integer; var CancelAlerts: Boolean); begin if EventName = 'new_reg' then begin Umain.Form1.inmuebles.Refresh; Umain.Form1.localidades.Refresh; end;
procedure TCustomerData.IBEvents1EventAlert(Sender: TObject; EventName: String; EventCount: Integer; var CancelAlerts: Boolean); begin if EventName = 'new_reg' then begin Umain.Form1.inmuebles.Refresh; Umain.Form1.localidades.Refresh; end;