[Confetti7]

Ну в общем нужно создать несколько приложений, вроде бы не трудно, но у меня не получается ((( я в этом новичок.. Помогите пожалуйста ..

Вот текст заданий:

1.Создайте приложение, на форму которого помещены компоненты: Timer и Button.
При нажатии на кнопку Button включается таймер.
В обработчике события OnTimer компонента Timer с интервалом в 2 секунды происходит случайное изменение положения компонента Button в пределах формы. При повторном нажатии на кнопку интервал таймера уменьшается в два раза, при ещё одном нажатии — ещё в два раза и так далее.

2.Создайте приложение, на форму которого помещены компоненты:
Button — 1 шт.
Label — 1 шт.
Edit — 2 шт.
Напишите обработчик события OnClick для компонента Button, который отображает в компоненте Label разность в днях и часах между датами, указанными в компонентах Edit.

3.Создайте приложение, на форму которого помещены компоненты: Button и OpenDialog.
Напишите обработчик события OnClick компонента Button, который открывает диалог OpenDialog и, в случае положительного ответа, загружает в память компьютера выбранный пользователем графический файл BMP и отображает его в центре формы.
Примечание: если на компьютере нет графических файлов формата BMP, то создайте его в приложении MS Paint.

[lmikle]

Ну и в чем проблема? Все стандартное.
1.

Код:

procedure Timer1Timer(Sender : TObject);
begin
  Button1.Left := Random(Self.Width);
  Button1.Rignt := Random(Self.Height);
end;

procedure Button1Click(Sender : TObject);
begin
  If Timer1.Enabled = False 
    Then Timer1.Enabled := True
    Else Timer1.Interval := Timer1.Interval div 2;
end;

2.

Код:

uses DateUtils;

procedure Button1Click(Sender : TObject);
var
  D1, D2, DIff : TDateTime;
begin
  D1 := StrToDateTime(Edit1.Text);
  D2 := StrToDateTime(Edit2.Text);
  Diff := Abs(D1-D2);
  Label1.Caption := IntToStr(Int(Diff)) + ' дней ' + TimeToStr(TimeOf(Diff));
end;

3.

Код:

procedure Button1Click(Sender : TObject);
begin
  If OpenDialog1.Execute Then 
    Image1.Picture.LoadFromFile(OpenDialog.FileName);
end;

А в следующий раз со школьными заданиями - в сад.