[true]

Вообщем как сделать так, чтобы на один компонент нажимаешь он выводится в свой размер при все притом что остальные скрываются, и на оборот по бальшой обратно шмешь все станоится на места: примерный код дальше я не допетрил чет:

Код:

procedure TForm1.Image1Click(Sender: TObject);
begin
image1.Align:=alCustom;
Image1.AutoSize:=True;
image2.Visible:=False;
image3.Visible:=False;
image4.Visible:=False;
end;

end.

Вот рисунок для визуального понимания:

[Uniq!]

Код:

if Image1.AutoSize=false then
 begin
  image1.Align:=alCustom;
  Image1.AutoSize:=True;
  image2.Visible:=False;
  image3.Visible:=False;
  image4.Visible:=False
 end
else
 обрабатываешь то что должно происходить если картинка должна перейти от большого к маленькому типу:
begin
  Image1.AutoSize:=false;
  image2.Visible:=true;
  image3.Visible:=true;
  image4.Visible:=true;
end;
end;

[true]

Спасибо, но картинка осталась маленькой и как оформить чтобы процедура неостанавливалась после двух действий, т.е можно было еще несколько раз нажать

[Страдалецъ]

1. Установить для всех картинок Proportional := True; Stretch := True;
2. Сделать единое событие для всех картинок по одинарному или двойному клику:

Код:

procedure TForm8.Image1Click(Sender: TObject);
begin
 if TImage(Sender).Align = alClient
 then TImage(Sender).Align := alNone
 else TImage(Sender).Align := alClient;
 TImage(Sender).BringToFront;
end;

[true]

Почти то, но я хотел бы чтобы она открывала картинку а при повторном щелчке возвращалась в исходную позицию.. а щас только небольшая картинка открывает и без движений

[Страдалецъ]

У меня все происходит именно так как вы описываете. Вот собственно вся программа: