problemas com HINT .. como resolver?

Question

alguem sabe como resolver problemas com hint do tipo

eu quero por um hint com o caracter � | � (#124) ... e talz ...

mas nao funciona .... alguem tem ideia de como fazer isso funcionar corretamente ... valeuz ..

[]s :wink:

Carlosrm · Answer

salsa,vc est� querendo exibir um hint em mais de uma linha, � isso ?carlosrm...

Salsa · Answer

nao .. eu quero exibir o caracter �|� (#124)no hint ... mais nao consigo por causa q ele usa a barra pra algo ...queria saber se alguem conhece algum jeito de fazer isso!...

Wolverine · Answer

:lol: procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);beginStatusBar1.Panels[0].Text:=�|OK|�end;...

Cebikyn · Answer

Essa barra, � usada para separ o hint curto do longo. O hint curto � aquele que aparece qnd vc deixa o mouse por cima do componente, o longo � o que aparece no StatusBar (se n�o h� barra, ambos s�o iguais). Logo, este caractere s� pode ser mostrado no hint longo.

entao nao tem como mostrar um hint em um botao assim � |_aaa_| ?

Salsa · Answer

[quote:a5e7a79ff7=�Wolverine�]:lol: procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);beginStatusBar1.Panels[0].Text:=�|OK|�end;[/quote:a5e7a79ff7]nao entendi oq a status bar tem a ver com mostrar o hint com a | (barra)c vc adicionar hum hint assim num botao: |_aaaa_|ele nao aparece...

Salsa · Answer

[quote:7d4d160268=�cebikyn�]Essa barra, � usada para separ o hint curto do longo. O hint curto � aquele que aparece qnd vc deixa o mouse por cima do componente, o longo � o que aparece no StatusBar (se n�o h� barra, ambos s�o iguais). Logo, este caractere s� pode ser mostrado no hint longo.[/quote:7d4d160268]entao nao tem como mostrar um hint em um botao assim � |_aaa_| ?...

Carlosrm · Answer

salsa,se essa op��o ajudar, �timo. Se n�o, faz de conta que eu n�o postei nada.troque o c�digo ascii para 166. Em vez de uma barra vertical, aparecer�o duas semi-barras verticais, uma em cima da outra, semelhante ao sinal de dois pontos. button3.Hint := #166+�_aaa_�+166;carlosrm...

Salsa · Answer

po cara valeuz ... masss nao tem jeito ... eu preciso colocar a barra no hint ... mass valeuz pela aten�ao ae!  :wink:...

Beppe · Answer

Pode-se criar um descendente de THintWindow que fa�a isso. O THintWindow normal pega a mensagem a ser exibida com GetShortHint, ent�o � s� usar o hint inteiro....

Beppe · Answer

Achei uma solu��o menos problem�tica. S� coloque um TApplicationEvents no form, crie um manipulador para o OnShowHint:

function GetHint(Control: TControl): String;
begin
  while Control <> nil do
  begin
    Result := Control.Hint;
    if Result = �� then
      Control := Control.Parent
    else
     Exit;
  end;
  Result := ��;
end;

procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
  HintStr := GetHint(HintInfo.HintControl);
end;

mto obrigado ... a sua solu�ao foi perfeita .... []s :D

Wolverine · Answer

�, � aparece, coloque no hint | e � apareceu no status bar status bar, porem depois q eu fiz isso
StatusBar1.Panels[0].Text:= �|�
ele aparaceu

[quote:24440ab817=�Wolverine�]:lol: procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin StatusBar1.Panels[0].Text:=�|OK|� end;

nao entendi oq a status bar tem a ver com mostrar o hint com a | (barra)

c vc adicionar hum hint assim num botao: |_aaaa_|

ele nao aparece[/quote:24440ab817]

Wolverine · Answer

Isso foi retirado das 800 dias do Delphi

316 - Criando uma barra de status
Para criar uma barra de status realmente �til, primeiramente coloque um componente TStatusBar (que est� na paleta Win32) no seu form (vou explicar completo porque v�rios programadores n�o o conhecem e usam Panels para isso). Clique com o bot�o direito no StatusBar1 e escolha Panels Editor. Clique Add e pronto (se quiser colocar mais divis�es - para colocar um rel�gio, por exemplo, � s� clicar Add mais vezes).

Apesar de muitos colocarem mensagens em StatusBars no evento OnMouseMove dos componentes, o melhor modo que eu conhe�o para isso � usando Hints. Primeiramente altere a propriedade ShowHint para True. Depois digite o que vai aparecer no seguinte formato:

Texto que vai aparecer junto ao mouse|Texto que vai aparecer no StatusBar (onde | � Shift + \).

Nota:

* No texto que aparecer junto ao mouse, coloque uma frase pequena (ex: Imprimir). No texto que vai aparecer no StatusBar, coloque um texto mais explicativo (ex: Imprimir o relat�rio de vendas do m�s atual).

[b:a57037cf41]* Caso voc� queira que n�o apare�a nenhum texto junto ao mouse (ou seja, s� no StatusBar), cuide para que o primeiro caracter de Hint seja o caracter �|� (sem aspas). [/b:a57037cf41]
No evento OnCreate do form, coloque o seguinte comando:

Application.OnHint := ShowHint;
Crie uma procedure na se��o private do form a procedure ShowHint. Na se��o implementation, coloque:

procedure TForm1.ShowHint(Sender: TObject);
begin
StatusBar1.Panels[0].Text := GetLongHint (Application.Hint);
end;
E pronto.

Salsa · Answer

[quote:90eb933b25=�Beppe�]Achei uma solu��o menos problem�tica. S� coloque um TApplicationEvents no form, crie um manipulador para o OnShowHint:[code:1:90eb933b25]function GetHint(Control: TControl): String;begin  while Control <> nil do  begin    Result := Control.Hint;    if Result = �� then      Control := Control.Parent    else     Exit;  end;  Result := ��;end;procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;  var CanShow: Boolean; var HintInfo: THintInfo);begin  HintStr := GetHint(HintInfo.HintControl);end;[/code:1:90eb933b25][/quote:90eb933b25]mto obrigado ... a sua solu�ao foi perfeita .... []s  :D...

F�rum problemas com HINT .. como resolver? #209123