sexta-feira, 19 de outubro de 2007

Dica: Form sem barra de títulos. Utilizando API

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