Muitas vezes precisamos de um form sem barra de títulos quando a idéia é apenas exibir uma informação ao usuário. Sabemos que se alterarmos a propriedade BorderStyle para none conseguimos esse efeito, no entanto o visual não é muito bom, o form fica com uma aparência FLAT e nem sempre é o que queremos (a menos que seja um Splash).
Crie um novo projeto no delphi, coloque o Label e defina as seguintes propriedades:
Align: alClient
Alingment: taCenter
Layout: tlCenter
Seu form deve se parecer com este
Deixe o form com o tamanho que desejar. E no evento onCreate coloque.
procedure TForm1.FormCreate(Sender: TObject);
begin
{Removendo Barra de tírulos}
SetWindowLong(Handle,GWL_STYLE, GetWindowLong(Handle, GWL_STYLE ) and not WS_CAPTION);
end;
Veja a diferença entre as duas técnicas
Utilizando a API
Utilizando BorderStyle = bsNone
Para mais informações sobre a API acesse: http://msdn2.microsoft.com/en-us/library/ms633591.aspx
1 comentários:
Show de Bola
Postar um comentário