(Resolvido) Urgente!

[Junior Evangelista]

Fiz esse código com a estrutura IF e Else... só que passa direto. O código:

_______________________________________________________________

procedure Tradio.Image1DblClick(Sender: TObject);
begin
if tamanho=0 then
begin
image7.Visible:=true;
image6.Visible:=false;

ShowWindow( Handle, SW_Maximize);
radio.Height:=radio.Height-3;
image8.Left:=image3.Left-40;
image6.Left:=image8.Left-40;
image7.Left:=image8.Left-40;
image5.Left:=image6.Left-40;
tamanho:=1;
end
else
if tamanho=1 then
image6.Visible:=true;
ShowWindow( Handle, SW_RESTORE);
image8.Left:=1064;
image6.Left:=1024;
image7.Left:=1024;
image5.Left:=984;
image7.Visible:=false;
tamanho:=0;

end;

_______________________________________________________________________

é como se não tivesse o segundo if, ele passa direto por ele. Sera que podem me ajudar? o.O

[jamel]

porque colocar o if tamanho = 1 se você ta setando o tamanho = 1 antes, ao meu entender você quer que passe ali de qualquer jeito.

certo?

Se sim não tem necessidade de colocar dentro de um if a segunda parte.

Editado Abril 28, 2014 por jamel

[Recife]

tentar fazer assim:

if tamanho=0 then
begin
  image7.Visible:=true;
  image6.Visible:=false;

  ShowWindow( Handle, SW_Maximize);
  radio.Height:=radio.Height-3;
  image8.Left:=image3.Left-40;
  image6.Left:=image8.Left-40;
  image7.Left:=image8.Left-40;
  image5.Left:=image6.Left-40;
  tamanho:=1;
end
else
begin //adicionado
  if tamanho=1 then
  begin
    image6.Visible:=true;
    ShowWindow( Handle, SW_RESTORE);
    image8.Left:=1064;
    image6.Left:=1024;
    image7.Left:=1024;
    image5.Left:=984;
    image7.Visible:=false;
    tamanho:=0;
  end; 
end;//adicionado