Ja predlazem da se vratimo na pocetak :) , odnosno na TDBEdit. Evo malo koda:
Code:
TDBEditModifExit = class(TDBEdit)
private
procedure CMExit(var Msg: TCMExit); message CM_EXIT;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
i jos
Code:
procedure TDBEditModifExit.CMExit(var Msg: TCMExit);
begin
ShowMessage('Ovo je pre inherited CMExit()'); // ovde se zapravo izmeni text po nahodjenju
inherited;
end;
A evo sta radi kod u inherited (originalnoj) metodi:
Code:
procedure TDBEdit.CMExit(var Message: TCMExit);
begin
try
FDataLink.UpdateRecord;
except
SelectAll;
SetFocus;
raise;
end;
SetFocused(False);
CheckCursor;
DoExit;
end;
Ja sam pokusao ovo, i dobio sam taj ShowMessage iz prve (cak i bez "kacenja" na bazu); znaci, trebalo bi da radi.
Rajko