MDI Forms
Como faço para diminuir o tamanho de um form MDI quando for criado.
Através do comando frm_form1.height := 152
Através do comando frm_form1.height := 152
Adorador
Curtidas 0
Respostas
Poeta Noturno
27/03/2004
Como vai adorador?
Bom, o caminho é esse, mas usa esse comando no evendo OnCreate do Form, ok?
Um abraço
Poeta Noturno
Bom, o caminho é esse, mas usa esse comando no evendo OnCreate do Form, ok?
Um abraço
Poeta Noturno
GOSTEI 0
Asa_mcmf
27/03/2004
[color=darkblue:7c057d7673][i:7c057d7673]procedure TForm1.FormCreate(Sender: TObject);
begin
Height := 50;
Width := 50;
end;[/i:7c057d7673][/color:7c057d7673]
ou, utilizando o ClientHeight e ClientWidth, você fornece o espaço utilizado sem a barra de título, só o espaço ´cliente´ do Formulário,
como no código abaixo....
[color=darkblue:7c057d7673][i:7c057d7673]procedure TForm1.FormCreate(Sender: TObject);
begin
ClientHeight := 50;
ClientWidth := 50;
end;[/i:7c057d7673][/color:7c057d7673]
begin
Height := 50;
Width := 50;
end;[/i:7c057d7673][/color:7c057d7673]
ou, utilizando o ClientHeight e ClientWidth, você fornece o espaço utilizado sem a barra de título, só o espaço ´cliente´ do Formulário,
como no código abaixo....
[color=darkblue:7c057d7673][i:7c057d7673]procedure TForm1.FormCreate(Sender: TObject);
begin
ClientHeight := 50;
ClientWidth := 50;
end;[/i:7c057d7673][/color:7c057d7673]
GOSTEI 0