|
Si dejas al sistema y delphi estos al estar un registro bloqueado y querer editarlo te da un mensaje de error y de esto nos aprovechamos con la siguiente función
Function usuario(error,tex1,tex2:string);dtring;
var usau:string;
begin
usau:=(Copy(error,(Ansipos('User:',error)+5),(length(error)-(ansipos('User:',error)+4))));
Result:=tex1+' '+usua+' '+tex2;
end;
y modo de uso en el evento Onclick de un boton
EVENTO ONCLICK
var Bloqueo:Boolean;
begin
try
table1.edit;
bloqueo:=false;
exept
On E:Exception do
begin
Showmessage(usuario(e.message,'Registro ocupado por:[','], intentelo más tarde'));
bloqueo:=true;
end;
end;
if bloqueo then exit;
end;
Un saludo desde Canarias.
|