Sabe alguien como se puede sobreescribir alguna de las funciones basicas de Delphi.
Mi intencion es sobreescribir la funcion MessageDlg para insertarle alguna instruccion. Por ej:
Código Delphi
[-]
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word; Override
Begin
Msg := Uppercase( Msg)
Inherited;
End;
Ya se que esto no funciona y que tampoco es posible hacer, es simplemente para que veais lo que quiero hacer. ¿Alguna idea?