0 / 0 / 0
Регистрация: 17.10.2016
Сообщений: 44
1

Типы данных. Командные кнопки. Линейные структуры

26.02.2017, 23:20. Показов 1546. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Создать проект, который содержит два рисунка, расположенных в правой и левой части окна. При нажатии на кнопку Приближение рисунки приближаются друг к другу, при нажатии на кнопку Отдаление - отдаляются.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2017, 23:20
Ответы с готовыми решениями:

Числовые типы данных. Линейные программы.
Нужно найти площадь кольца, внутренний радиус которого равен r, а внешний — R (R> r).

Динамические структуры данных. Линейные списки
1. Сформировать список из N целочисленных случайных элементов (N – вводится ...

Командные файлы ветвящейся структуры
Помогите Создать командный файл в каталоге pr8 под именем k7. Bat который проверяет наличие...

Чем типы данных отличаются от структуры данных
Доброго времени суток. Все мы знаем базовые типы данных, которые от языка к языку...

6
500 / 356 / 231
Регистрация: 29.03.2015
Сообщений: 675
27.02.2017, 07:09 2
Лучший ответ Сообщение было отмечено Helen2 как решение

Решение

Код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
qmode:byte;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
qmode:=1;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
qmode:=2;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case qmode of
1:
begin
if image1.Left+image1.Width+10<image2.Left-10 then
begin
image1.Left:=image1.Left+10;
image2.Left:=image2.Left-10;
end;
end;
2:
begin
if (image1.Left>16)and(image2.Left+image2.Width<width-16) then
begin
image1.Left:=image1.Left-10;
image2.Left:=image2.Left+10;
end;
end;
end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
 
end.
Прилагаю проект на Delphi.
Вложения
Тип файла: zip Pictures.zip (985.0 Кб, 2 просмотров)
1
0 / 0 / 0
Регистрация: 17.10.2016
Сообщений: 44
27.02.2017, 23:43  [ТС] 3
посмотрите, пожалуйста где ошибка в коде
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    img1: TImage;
    btn2: TButton;
    img2: TImage;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  end;
var
  Form1: TForm1;
  qmode:byte;
implementation
 
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
qmode:=1;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
qmode:=2;
end;
    procedure TForm1.Timer1Timer(Sender: TObject);
begin
case qmode of
1:
begin
if img1.Left+img1.Width+10<img2.Left-10 then
begin
img1.Left:=img1.Left+10;
img2.Left:=img2.Left-10;
end;
end;
2:
begin
if (img1.Left>16)and(img2.Left+img2.Width<width-16) then
begin
img1.Left:=img1.Left-10;
img2.Left:=img2.Left+10;
end;
end;
end;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
close;
end;
 
end.
0
1040 / 856 / 335
Регистрация: 08.12.2016
Сообщений: 3,283
28.02.2017, 01:27 4
Цитата Сообщение от Helen2 Посмотреть сообщение
где ошибка в коде
блин, есть же рабочий проект. Неужели нельзя было прямо в нем переименовать Button1 в btn1? и т.д.

таймера в "вашем" проекте не хватает, поэтому код метода Timer1Timer исполнять некому
0
500 / 356 / 231
Регистрация: 29.03.2015
Сообщений: 675
28.02.2017, 01:39 5
Например, в Delphi 6 таймер Timer располагается на вкладке System.
1
northener
28.02.2017, 02:44
  #6

Не по теме:

Цитата Сообщение от unifikator Посмотреть сообщение
Например, в Delphi 6 таймер Timer располагается на вкладке System
А что такое "вкладка System"? :)

0
1040 / 856 / 335
Регистрация: 08.12.2016
Сообщений: 3,283
28.02.2017, 06:38 7
Цитата Сообщение от northener Посмотреть сообщение
А что такое "вкладка System"?
Цитата Сообщение от unifikator Посмотреть сообщение
Например, в Delphi 6
он там до сих пор
Миниатюры
Типы данных. Командные кнопки. Линейные структуры   Типы данных. Командные кнопки. Линейные структуры  
0
28.02.2017, 06:38
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.02.2017, 06:38
Помогаю со студенческими работами здесь

Составный типы данных: структуры
помогите решить задачу, вообще не понимаю как ее сделать Багаж пассажира характеризуется...

Составные типы данных: структуры
Помогите решить задачи пожалуйста!!! Дан массив данных о работниках фирмы: ФИО и год поступления...

Реализовать простейшую базу данных, используя пользовательские типы (структуры)
Помогите написать простую программу с помощью структур

Можно ли через именованный канал передать другому процессу такие типы данных как структуры, массивы?
У меня вопрос. Можно через именованный канал передать другому процессу такие типы данных как...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru