|
Como continuación a este post, el cual me ha parecido interesante, he decidido introducirlo en una aplicación que estoy escribiendo, y el caso es que aplicandolo al siguiente evento,
procedure TFormMantenTitulos.Edit1Change(Sender: TObject);
var
Opcion:integer;
begin
Tabla1.SetKey;
Tabla1.FieldByName('Ticker').AsString:=Edit1.Text;
Tabla1.GotoNearest;
if Edit1.Text = Tabla1.FieldByName('Ticker').AsString then
Opcion:=Application.MessageBox(PChar('El Ticker '+Edit1.Text+' ya existe'),
'ATENCION',mb_YesNo+mb_IconWarning);
if Opcion = IDYes then
begin
(Codigo para efectuar modificaciones
end
else
begin
Edit1.Text:='';
Edit1.SetFocus;
end;
end;
no puedo editar en el Edit1, en tiempo de ejecucición.
¿Alguien puede ayudarme ? Gracias.
Josep.
|