|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Очень нужна помощь ( Delphi )
Ну в общем нужно создать несколько приложений, вроде бы не трудно, но у меня не получается ((( я в этом новичок.. Помогите пожалуйста ..
Вот текст заданий: 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. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Open your eyes and say that life is beautiful... ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Последний раз редактировалось Confetti7, 27.02.2009 в 14:34. |
#2
|
|||
|
|||
Ну и в чем проблема? Все стандартное.
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; А в следующий раз со школьными заданиями - в сад. |