Mostrar hint al entrar en DBEDIT

[fjolivares]

Hola a todos. Estoy intentando mostrar una ayuda cuando el usuario entra en algunos DBEDIT. Una idea sería mostrar el hint cuando el usuario entre en el DBEDIT, aunke sea con el tabulador. el hint solo se muestra al pasar por encima el raton.

¿Existe alguna manera de mostrar el hint mediante codigo?

Saludos y gracias.

[yusnerqui]

Empezado por fjolivares

¿Existe alguna manera de mostrar el hint mediante codigo?

Saludos y gracias.

esto lo tomé textualmente del truco 135 del trucomanía, espero te sirva
Utiliza esta función para mostrar el hint de un componente. Recuerda guardar el handle que te devuelve en una
variable para despues destruir el Hint.:

Código Delphi [-]
 function RevealHint (Control: TControl): THintWindow;
 var 
   ShortHint: string;
   AShortHint: array[0..255] of Char;
   HintPos: TPoint;
   HintBox: TRect;
 begin 
   { Create the window: }
   Result := THintWindow.Create(Control);
 
   { Get first half of hint up to '|': }
   ShortHint := GetShortHint(Control.Hint);
 
   { Calculate Hint Window position & size: }
   HintPos := Control.ClientOrigin;
   Inc(HintPos.Y, Control.Height + 6);
   HintBox := Bounds(0, 0, Screen.Width, 0);
   DrawText(Result.Canvas.Handle,
       StrPCopy(AShortHint, ShortHint), -1, HintBox,
       DT_CALCRECT or DT_LEFT or DT_WORDBREAK or DT_NOPREFIX);
   OffsetRect(HintBox, HintPos.X, HintPos.Y);
   Inc(HintBox.Right, 6);
   Inc(HintBox.Bottom, 2);
 
   { Now show the window: }
   Result.ActivateHint(HintBox, ShortHint);
 end; {RevealHint}
 
 
 
//Ejemplo de llamada:
 
 
 
var 
   mango:THintWindow;
begin 
   mango:=RevealHint(Button1);
 
 
 

//Para hacer desaparecer el hint:
 
 
 
 procedure RemoveHint (var Hint: THintWindow);
 begin 
   Hint.ReleaseHandle;
   Hint.Free;
   Hint := nil;
 end; {RemoveHint}
 
 
 
//Ejemplo de llamada:
 
 
 
 RemoveHint(mango)

Donde 'mango' es el handle que hemos guardado al llamar a RevealHint

[fjolivares]

gracias yusnerqui, consigo q aparezca una ventanita de hint. el tema es q si muevo el form mientras se muestra el hint, este se keda detras del form.

¿no hay manera de provocar q aparezca el propio hint del control?

Saludos y gracias.

[roman]

Podrías poner un StatusBar en el formulario y escribir el hint en él cuando se entre a un control. Por ejemplo, en el evento OnEnter:

StatusBar.SimpleText := DBEdit.Hint;

// Saludos

[fjolivares]

Gracias roman, ayer por la tarde hize eso. estuve probando un componente gratuito que se llama zballon q hacia lo que queria, pero me resultaba engorroso de cara al usuario. al final muestro el hint en un memo en el evento onenter.

Saludos.

[roman]

Comprendo. Al principio suena muy bonito eso de poner hints en ventanitas por todos lados y si son de formas especiales qué mejor. Pero pasado el entusiasmo inicial cualquier usuario se harta.

// Saludos