procedure TForm1.FormCreate(Sender: TObject);
begin
end;
o procedimento acima vai abrir o programa ja em fullscreen, dentro do escopo begin e end mudamos o atributo top e left para 0 para deixar o form no canto superior esquerdo
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Top := 0;
Form1.Left := 0;
end;
agora usamos colocamos o tamanho maximo nos atributos width e height, porem eu nao faço a minima ideia qual é o tamanho maximo dessa bagaça entao vamos usar o screen.width e screen.height e atribuir eles
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Top := 0;
Form1.Left := 0;
Form1.Width := Screen.Width;
Form1.Height := Screen.Height;
end;
quase deu certo a maldita barra do iniciar fica em cima, para mudar isso va denovo no object inspector form1 e procure BorderStyle mude ele para none, ou coloque o codigo equivalente
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Top := 0;
Form1.Left := 0;
Form1.Width := Screen.Width;
Form1.Height := Screen.Height;
Form1.BorderStyle := bsNone;
end;
agora quando executar vai ficar o form por cima de tudo, ai é so fazer oque vcs quiser no caso coloquei um label e um button (fico tudo cinza ate parece que fiz essa bagaça no paint kkkkkkkkk)
um outro que eu ja tinha feito para broquear o desktop ^^
Gostei. Talvez eu melhore o meu entendimento!!!
ResponderExcluir