type
TEdit = class(StdCtrls.TEdit)
protected
procedure WndProc(var Message: TMessage); override;
end;
const
ECM_FIRST = $00001500;
EM_SHOWBALLOONTIP = ECM_FIRST + 3;
implementation
procedure TEdit.WndProc(var Message: TMessage);
begin
if Message.Msg = EM_SHOWBALLOONTIP then exit;
inherited WndProc(Message);
end;