ActiveDelphi

[r.skol@live.com]

Primeiramente boa noite,

Estou criando um programa com form nessas proporções:
height:= 30;
width:= monitor.Width;
Align:= Ontop;

Eu queria que essa barrinha ficasse acima de qualquer outro programa.
Exemplo: Quando eu maximiza-se qualquer janela, de qualquer programa que nao fosse o meu, ele deveria respeitar que o limite do monitor é abaixo do meu form.

http://prntscr.com/2o26pm (essa linha azul divide o meu form da barrinha ali do google chrome)

Queria que o programa funcionasse exatamente como ta na foto, é possível ?

[gadeji]

Aqui está amigo...

defina essa variavel global
RectOriginal: TRect;


Coloque isso no onCreate do Form..

procedure TForm1.FormCreate(Sender: TObject);
var
Rect: TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @RectOriginal, 0);
Rect := RectOriginal;
Rect.Top := Rect.Top + height;
SystemParametersInfo(SPI_SETWORKAREA, SizeOf(Rect), @Rect, 0);
Top := 0;
Left := 0;
FormStyle := fsStayOnTop;
Width := Monitor.Width;
BorderStyle := bsNone;
end;

e isso no onCloese do Form

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SystemParametersInfo(SPI_SETWORKAREA, SizeOf(RectOriginal), @RectOriginal, 0);
end;