segunda-feira, 23 de novembro de 2009

Hint com quebra de linha

{Para incluir mais de uma linha no Hint você deve utilizar o evento OnMouseMove de cada componente. Veja abaixo como ficará o código em um Edit por exemplo. }

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Edit1.hint := 'Primeira Linha'+#13+'Segunda Linha'+#13+ 'Terceira Linha'+#13+'Quarta Linha';
end;
//Obs. Não esquecer de mudar para TRUE o evento ShowHint









P.1072

Nenhum comentário:

Postar um comentário