Recompilar arquivo original do Delphi

Delphi

14/08/2007

Boa tarde

Gostaria de recompilar o arquivo DBActns.Pas que vem junto com o delphi para implementar uma validação
[b:18172d6e85]
Procedure Original[/b:18172d6e85]

procedure TDataSetInsert.UpdateTarget(Target: TObject);
begin
with GetDataSet(Target) do
Enabled := Active and CanModify;
end;

Gostaria de implementá-la conforme abaixo para que o botão de insert ( qdo linkado a uma TDataSetInsert ficasse desabilitado qdo estiver inserindo.

[b:18172d6e85]Procedure alterada[/b:18172d6e85]
procedure TDataSetInsert.UpdateTarget(Target: TObject);
begin
with GetDataSet(Target) do
Enabled := Active and CanModify [b:18172d6e85] [color=red:18172d6e85]and not (State in dsInsertModes)[/color:18172d6e85][/b:18172d6e85];
end;

Alguém saberia me ensinar a recompilar esta unit de tal maneira que o delphi enxergue estas alterações?


Obrigado


Jubrovolski

Jubrovolski

Curtidas 0

Respostas

Massuda

Massuda

14/08/2007

Não é boa idéia modificar os arquivos originais do Delphi.

Faça o seguinte:[list:266ef2a772][*:266ef2a772]copie a unit para a pasta onde está seu projeto[*:266ef2a772]modifique a unit do jeito que você quiser[*:266ef2a772]adicione a unit modificada no seu projeto[/list:u:266ef2a772]


GOSTEI 0
POSTAR