URGENTE!!! Panel1.Width := Form1.ClientWidth / 2; ?

Question

Por favor, algu�m me ajude a corrigir este c�digo.

procedure TForm1.FormResize(Sender: TObject);
begin
  Panel1.Width := Form1.ClientWidth / 2;
end;

Obridado,

Roberto

Mikemurussi · Answer

Use:Panel1.Width := Trunc(Form1.ClientWidth / 2); ouPanel1.Width := Form1.ClientWidth div 2;Se dividir 3 por 2, o resultado n�o � um inteiro, e a propriedade Width � do tipo Integer, por isto seu problema. Trunc corta um n�mero pegando somente a parte inteira e div divide pegando a parte inteira. J� mod retorna o resto da divis�o.[url]www.murussi.com.br[/url]...

Tenil · Answer

Valeu,[]sRoberto...

F�rum URGENTE!!! Panel1.Width := Form1.ClientWidth / 2; ? #171499