Segue uma dia para deixar a tela mais elegante, removendo a barra de titulo.

sembarratitulo

Para isso, utilize as propriedades WS_VISIBLE e WS_POPUP em sua janela

Exemplo:

DEFINE MSDIALOG oDlg TITLE "Janela sem barra de titulo e bordas" From 0,0 TO 800,100 Pixel STYLE nOR( WS_VISIBLE, WS_POPUP )
oDlg:lMaximized := .T. //Maximizar a janela

sembarratitulo2

Se estiver usando construtor TDialog:New, faça assim:

oDlg := TDialog():New(0,0,800,1000,'Janela sem barra de titulo e bordas',,,,nOr(WS_VISIBLE,WS_POPUP),CLR_BLACK,CLR_WHITE,,,.T.,,,,,,.F.)
oDlg:lMaximized := .T. //Maximizar a Janela

Usando o construtor MsDialog:New, faça assim:

oMsDialog := MSDialog():New(0,0,800, 1000,'Janela sem barra de titulo e bordas',,,,nOr(WS_VISIBLE,WS_POPUP),CLR_BLACK,CLR_WHITE,,,.T.,,,,.T.)
oDlg:lMaximized := .T. //Maximizar a Janela

Como podem ver, não importa qual objeto esteja usando, todos utilizam as mesmas propriedades para remover a barra de titulo e as bordas.

Simples não?

 


0 comentário

Deixe uma resposta