| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
flabed10
Novato
Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63
|
 Enviada: Dom Mai 26, 2013 12:28 am Assunto: [RESOLVIDO] Como fazer um Form visual |
 |
|
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 |
|
 |
flabed10
Novato
Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63
|
| Enviada: Dom Mai 26, 2013 2:10 pm Assunto: |
|
|
| ajuda pf |
|
| Voltar ao Topo |
|
|
flabed10
Novato
Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63
|
| Enviada: Dom Mai 26, 2013 7:18 pm Assunto: |
|
|
| ajuda pf |
|
| Voltar ao Topo |
|
|
flabed10
Novato
Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63
|
| Enviada: Dom Mai 26, 2013 10:17 pm Assunto: |
|
|
| ajuda pf |
|
| Voltar ao Topo |
|
|
flabed10
Novato
Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63
|
| Enviada: Seg Mai 27, 2013 12:15 am Assunto: |
|
|
| me ajuda pelamor de deus |
|
| Voltar ao Topo |
|
|
CesarRocha
Mestre
Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP
|
| Enviada: Seg Mai 27, 2013 9:55 am Assunto: |
|
|
@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 |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Seg Mai 27, 2013 10:47 am Assunto: |
|
|
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 |
|
|
flabed10
Novato
Registrado: Segunda-Feira, 22 de Abril de 2013
Mensagens: 63
|
| Enviada: Seg Mai 27, 2013 11:48 am Assunto: |
|
|
foi mal ae
vlw pelo código, vo da uma olhada aki
-edit-
funcionou perfeitamente vlw |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
