Небольшое затруднение

[egorzenit]

Добрый День,гуру дельфи такой вопрос к вам.
вот я написал небольшой код в дельфи

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := ProgressBar1.Position +1;
if ProgressBar1.Position = ProgressBar1.Max then
begin
timer1.Enabled :=false;
Form2.ShowModal;
end;
end;

end.

вот вопросик такой,как мне сделать чтобы после того как таймер закончился 1форма закрылась а вторая осталась?

[Пепел Феникса]

Form1.Hide;
Form2.Show;

[egorzenit]

Спасибо Пепел.
Подскажите еще один не сложный вопрос я думаю,как вставить картиночку в форму?

[Пепел Феникса]

проще всего через компонент TImage(вкладку не подскажу, сейчас не за Делфи)

[egorzenit]

про Timage я знаю.а дальше как указать путь до картинки которую нужно интергрировать в программу?

[jihot]

Picture.LoadFromFile();

[egorzenit]

это куда вписать?

[jihot]

ну или просто щелкните по компоненту TImage и там будет параметр Picture.
там и загрузите картинку.

[artemavd]

Один вопрос - одна тема.