Edit и Форма

[Claster]

Всем доброго времени суток.......на форме есть Edit и 3 кртинки расположенных в столбик......надо что бы при вводе в Edit = '1' форма плавно увеличивалась в высоте до того размера пока полностю не будет видно Image1, если в Edit = '12' то форма плавно увеличивается в высоте до того пока полностью не будет показана Image1 и Image2 и т.д.

[maLoy*508]

изменяйте размеры формы... height, width, top, left...

p.s. можно узнать что Вы вообще пытаетесь сделать??

[Jaguar83]

Может это имеете в виду

procedure TForm1.Proc(x: Integer);
var i: Integer;
begin
for i:=1 to x do
begin
  Form1.ClientHeight:=Form1.ClientHeight+1;
  Sleep(100);
  Application.ProcessMessages;
end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var k: Integer;
begin
if Edit1.Text ='1' then
begin
  k:= Image1.Top+Image1.Height-Form1.ClientHeight;
  Proc(k);
end;
if Edit1.Text ='12' then
begin
  k:= Image2.Top+Image2.Height-Form1.ClientHeight;
  Proc(k);
end;
end;

[Claster]

Сообщение от maLoy*508

изменяйте размеры формы... height, width, top, left...

p.s. можно узнать что Вы вообще пытаетесь сделать??

Что-то типа ComboBox

[Claster]

Сообщение от Jaguar83

Может это имеете в виду

procedure TForm1.Proc(x: Integer);
var i: Integer;
begin
for i:=1 to x do
begin
  Form1.ClientHeight:=Form1.ClientHeight+1;
  Sleep(100);
  Application.ProcessMessages;
end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var k: Integer;
begin
if Edit1.Text ='1' then
begin
  k:= Image1.Top+Image1.Height-Form1.ClientHeight;
  Proc(k);
end;
if Edit1.Text ='12' then
begin
  k:= Image2.Top+Image2.Height-Form1.ClientHeight;
  Proc(k);
end;
end;

прикольно, а плавнее можно как-то, и еще вопрос а обратное действие как произвести, если к примеру было в Edit ='123' и показывались все 3 картинки, после я ввел к примеру в Edit = '1' и форма должна уменьшится что бы было видно только 1 картинку

[Jaguar83]

Как плавнее?
медленее или быстрее - Задаётся параметром в Sleep(x)

[Claster]

Сообщение от Jaguar83

Как плавнее?
медленее или быстрее - Задаётся параметром в Sleep(x)

Это понял, а как задать уменьшение, и почему-то при вводе '1' показываются все 2 а не только 1

[Jaguar83]

Сообщение от Claster

и еще вопрос а обратное действие как произвести, если к примеру было в Edit ='123' и показывались все 3 картинки, после я ввел к примеру в Edit = '1' и форма должна уменьшится что бы было видно только 1 картинку

Сделай так...

procedure TForm1.Proc(x: Integer);
var i: Integer;
begin
if x > 0 then
for i:=1 to x do
begin
  Form1.ClientHeight:=Form1.ClientHeight+1;
  Sleep(1);
  Application.ProcessMessages;
end;
if x< 0 then
for i:=abs(x) downto 1 do
begin
  Form1.ClientHeight:=Form1.ClientHeight-1;
  Sleep(1);
  Application.ProcessMessages;
end;
end;

[Claster]

Большое спасибо буду разбираться

[Claster]

Еще один вопросик, а если в поле Edit пустое ?

С пустым уже разобрался

procedure TForm1.Edit1Change(Sender: TObject);
var k: Integer;
begin
  if Edit1.Text ='' then
    begin
     k:= Edit1.Top+Edit1.Height-Form1.Height;
     Proc(k);
  end;

  if Edit1.Text ='1' then
    begin
     k:= Image1.Top+Image1.Height-Form1.Height;
     Proc(k);
  end;

    if Edit1.Text ='12' then
      begin
        k:= Image2.Top+Image2.Height-Form1.Height;
        Proc(k);
    end;

    if Edit1.Text ='123' then
      begin
        k:= Image3.Top+Image3.Height-Form1.Height;
        Proc(k);
    end;

end;

когда х<0 или x>0 в процедуре?