ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

[RESOLVIDO] Como fazer um Form visual

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
flabed10
Novato
Novato


Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63

MensagemEnviada: Dom Mai 26, 2013 12:28 am    Assunto: [RESOLVIDO] Como fazer um Form visual Responder com Citação

Como fazer um form que não de para clicar nele, apenas visualizar, ou usar comandos dele através de Hotkeys. Por exemplo: Quero fazer um Form que fique acima de todas as janelas, e se eu clicar nele, não vai acontecer nada, o foco não vai pra ele. Vlw

Editado pela última vez por flabed10 em Seg Mai 27, 2013 11:51 am, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
flabed10
Novato
Novato


Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63

MensagemEnviada: Dom Mai 26, 2013 2:10 pm    Assunto: Responder com Citação

ajuda pf
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
flabed10
Novato
Novato


Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63

MensagemEnviada: Dom Mai 26, 2013 7:18 pm    Assunto: Responder com Citação

ajuda pf
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
flabed10
Novato
Novato


Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63

MensagemEnviada: Dom Mai 26, 2013 10:17 pm    Assunto: Responder com Citação

ajuda pf
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
flabed10
Novato
Novato


Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63

MensagemEnviada: Seg Mai 27, 2013 12:15 am    Assunto: Responder com Citação

me ajuda pelamor de deus
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
CesarRocha
Mestre
Mestre


Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP

MensagemEnviada: Seg Mai 27, 2013 9:55 am    Assunto: Responder com Citação

@Off

Amigo, não faça esse tipo de coisas no seu tópico pois é complemente desagradável. Se ninguém respondeu ainda, pode ser que não soubessem. Esse tipo de atitude só afasta quem quer ajudar, Ok?

@Sobre o tópico

Você deve basicamente fazer uma combinação de Window Styles e Extended Window Styles. Para criar o estilo desejado.

Exemplo:

Sobrescreva o procedimento CreateParams do seu formulário,
Código:
procedure CreateParams(var Params: TCreateParams); override;


E na implementação modifique os estilos, não esquecendo de chamar o evento original,
Código:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
  begin
    WndParent := GetDesktopWindow;
    Style := Style or WS_DISABLED;
    ExStyle := ExStyle or WS_EX_TOPMOST or WS_EX_NOACTIVATE;
  end;
end;


Ps.: Não lembro de cabeça qual o estilo pra remover a borda, pode usar BorderStyle := bsNone; no Create do formulário ou alterar do design,
Código:
procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle := bsNone;
  // centralizar na tela...
  Left := Screen.WorkAreaWidth div 2 - Width div 2;
  Top := Screen.WorkAreaHeight div 2 - Height div 2;
end;


Se resolver, adicionar ao título da primeira postagem a palavra Resolvido.

~Bye.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
imex
Moderador
Moderador


Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11375

MensagemEnviada: Seg Mai 27, 2013 10:47 am    Assunto: Responder com Citação

Bom dia,

flabed10, solicitamos por gentileza que você retire a imagem que você adicionou no campo assinatura do seu perfil, já que a mesma já foi alvo de reclamação de outro usuário do fórum.

Contamos com a sua compreensão e a sua colaboração.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
flabed10
Novato
Novato


Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63

MensagemEnviada: Seg Mai 27, 2013 11:48 am    Assunto: Responder com Citação

foi mal ae


vlw pelo código, vo da uma olhada aki


-edit-


funcionou perfeitamente vlw
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB