Ver Mensaje Individual
  #3  
Antiguo 23-02-2012
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 21
Chris Va por buen camino
Este sería el código Delphi para implementar lo que te digo:
Código Delphi [-]
procedure Form1.Edit1OnKeyPress(var Key: Char);
var
    BalloonTip: _tagEDITBALLOONTIP;
begin
    if (B > C) then
    begin
        Key := 0; // no aceptar el caracter ingresado
        
        // mostrar un mensaje sutíl al usuario 
        // indicandole que el problema.
        BalloonTip.cbStruct := SizeOf(BalloonTip);
        BalloonTip.pszTitle := 'B es mayor que C';
        BalloonTip.pszText := 'TODO: EXPLICAR POR QUE B NO PUEDE SER MAYOR QUE C';
        BalloonTip.ttiIcon := 4;

        SendMessage(Edit1.Handle,
                    EM_SHOWBALLOONTIP,
                    0,
                    Integer(@BalloonTip));        
    end;
end;

Tienes que agregar a la sección uses la unidad CommCtrl para hacer uso de los BalloonTips de Windows.

¿Alguien que pueda traducir este código?

Saludos!
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita