Delphi VirtualStringTree OnGetHint
Quero mostrar uma dica quando o texto da célula já estiver totalmente exibido.
então, no OnCreate do formulário
procedure TForm1.FormCreate(Sender: TObject);
begin
VirtualStringTree1.HintMode := hmHint;
VirtualStringTree1.ShowHint := True;
end;
e OnGetHint
procedure TForm1.VirtualStringTree1GetHint(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex;
var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
begin
HintText := IntToStr(Node.Index);
end;
mas nada acontece.
O manipulador de eventos OnGetHint não é acionado e até o ponto de interrupção TBaseVirtualTree.CMHintShow não está funcionando.
o que eu devo fazer?
Estou usando delphi xe3, virtualtreeview 5.2.1.
Obrigado pela resposta.
Eu segui o seu guia.
Propriedades da aplicação
ShowHint := True
// Marquei, mas defini como true no OnCreate explicitamenteVst propertiess
Hint
, por exemplo. 'Dica para todo o VST' // sim, adicione dica sem sentidoHintAnimation
, por exemplo.hatNone
HintMode
, por exemplo.hmHintAndDefault
// como você vê, no OnCreateShowHint
, True
// como você vê, no OnCreateParentShowHint
, conforme necessário, useFalse
se você não sabe // simEventos Vst a serem implementados
OnDrawHint()
// simOnGetHint()
// simOnGetHintSize()
// simmas nada mudou.
OnGetHint, OnGetHintSize, OnDrawHint não são disparados.
(quando HintMode definido como hmToolTip e o texto não for totalmente exibido, o OnGetHint será acionado apenas)
E sim, eu li essa documentaçãoVirtualTreeView.pdf
.
mas toda a descrição do evento é exatamente igual à sua cotação.
Eu preciso de mais explicações.
Atualizar:
Coisa muito estranha.
Eu testei esses outros PCs.
Meu PCWindows 10
xe3
vst 5.2.1
PC 1Windows 10
xe3
vst 5.2.1
PC 2Windows 10
O que????
o código não era o problema.
Não sei por que e nem por onde começar.
de qualquer forma, eu realmente agradeço pela resposta e aceito.
se alguém souber dessa coisa estranha, me avise.
se eu descobrir, vou atualizar.