1.6 Задача № 6 «Двигающая кнопка»
Цель работы - создать программу, выполняющую следующие действия:
1. По щелчку мышью на кнопке кнопка либо останавливается, либо двигается.
2. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в
строке заголовка.
Л
истинг
программы:
type
TForm1 = class(TForm)
Button1: TButton;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private Рисунок 7
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
var step: Integer = -5;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button1.Left := Button1.Left + step;
if (Button1.Left < 10) or (Button1.Left + Button1.Width > Form1.ClientWidth - 10)
then step := -step; end; end.
1.7 Задача № 7 «Альбом»
Цель работы - создать программу, выполняющую следующие действия:
1. После запуска программы в окне изображается рисунок.
2. По щелчку мышью на рисунке появляется диалоговое окно.
3
.
Выбрать в открывшемся диалоговом окне
любой другой рисунок.
Листинг программы:
type
TForm1 = class(TForm)
Panel1: TPanel;
Image1: TImage;
OpenDialog1: TOpenDialog;
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; Рисунок 8
Implementation
{$R *.dfm}
procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile
(OpenDialog1.FileName);
OpenDialog1.Execute;
end;
end.
1.7. Задача № 7 «Альбом»
Цель работы –
Создать программу, выполняющую следующие действия:
1. После запуска программы в окне изображается строка меню (Файл, Выход).
2. При выборе пункта меню Файл появляются пункты меню (Рисунки, Выход).
3. При выборе пункта меню Рисунки появляется вложенное меню, состоящее из двух
пунктов
4. По щелчку правой кнопки мыши появляется контекстное меню.
5. Выбрать по пункту другой рисунок
6. Если выбрать любой из пунктов Выход, работа программы завершается.
Листинг программы:
t
ype
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Panel1: TPanel;
Image1: TImage;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
PopupMenu1: TPopupMenu;
N7: TMenuItem; Рисунок 9
N8: TMenuItem;
procedure N6Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;