Skip to content

Latest commit

 

History

History
31 lines (23 loc) · 1.31 KB

README.md

File metadata and controls

31 lines (23 loc) · 1.31 KB

Biblioteca para simular o Chat do Whatsapp. Desenvolvido por Valter Patrick e Terceiros.

E-mail: valterpatrick@hotmail.com

Caso queira Contribuir (PIX): valterpatrick@hotmail.com

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Como funciona: Coloque esta bibioteca na pasta do seu projeto e adicione nos uses ddo projeto. É necessário colocar na tela um componente TScrollBox (WhereDisplay) e instanciar a Classe TChatWhats uma única vez, não sendo necessário uma instância para cada componente. Ao clicar com o botão direito em cima do balão, se for texto ou imagem abrirá um popupmenu para poder copia o texto/imagem Se utilizar o TScrollBox, inclua estes códigos nos seguintes eventos para poder funcionar o scroll do mouse:

procedure ScrollChatMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin TScrollBox.VertScrollBar.Position := TScrollBox.VertScrollBar.ScrollPos + 8; end;

procedure ScrollChatMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin TScrollBox.VertScrollBar.Position := TScrollBox.VertScrollBar.ScrollPos - 8; end;

No FormCreate colocar o seguinte código: ActiveControl := ScrollChat;