Hola a todos...
Sin poder determinar porque en delphi 7 se comporta de una forma y delphi 2010 de otra, he modificado la función dejándola así:
Código Delphi
[-]
Function TFrmLocalidades.ShowPopup(MyStatePopup:TStatePopup):Variant;
begin
Case MyStatePopup of
spNewRecord:begin
try
ModuloDatos.Localidad.DisableControl;
ModuloDatos.Localidad.Append;
finally
ModuloDatos.Localidad.EnabledControl;
end;
end;
spEditRecord: begin
....
end;
end;
if FrmLocalidades.ShowModal = mrOk then
begin
....
end
else
begin
....
end;
end;
Saluda Atte Neeruu!!!