Criar SubForm (Tipo popup)

Delphi

06/05/2015

Pessoal, minha duvida é a seguinte, eu quero criar um messenger na minha aplicação
mas eu quero que p bate papo apareça da seguinte forma...oculto no canto direito, com somente um botão de expandir
e quando eu clicar o form abra me exibindo o bate papo...como eu crio esse form expansível???
Adhemar Alves

Adhemar Alves

Curtidas 0

Respostas

Lucas Ramos

Lucas Ramos

06/05/2015

Também sempre tive essa curiosidade
GOSTEI 0
Lucas Ramos

Lucas Ramos

06/05/2015

Dei uma pesquisada rápida, só tenho o Delphi no trabalho e não tem como eu testar componentes nele,

Componente Popup
GOSTEI 0
Lucas Ramos

Lucas Ramos

06/05/2015

Cara nunca achei que fosse tão simples, segue print do que fiz em Csharp só utilizar a mesma idéia para o Delphi

[img:descricao=Pop Up]http://arquivo.devmedia.com.br/forum/imagem/341795-20150506-232509.png[/img]

no evento Show do form Popup setei a posição dele só não sei como pegar o tamanho da barra do windows

private void frmPopup_Shown(object sender, EventArgs e)
        {
            int largura = Screen.PrimaryScreen.Bounds.Width;
            int altura = Screen.PrimaryScreen.Bounds.Height;

            int posicaoLado = largura - this.Size.Width;
            int posicaoAltura = altura - this.Size.Height;

            this.Top = posicaoAltura - 37;
            this.Left = posicaoLado;
        }


Para fechar a popup só colocar um timer e ativar no método show conforme o tempo desejado.
GOSTEI 0
Adhemar Alves

Adhemar Alves

06/05/2015

vlw amigo
GOSTEI 0
POSTAR