Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
MaDiNa
3 / 3 / 1
Регистрация: 02.04.2012
Сообщений: 107
#1

ОШибка при клике

17.03.2013, 22:17. Просмотров 353. Ответов 5
Метки нет (Все метки)

Писала программу вывода графиков....при клике на Chart1MouseUp ничего окно редактора кода не вызывалась, после этого при клике на любой компонент...Например на радио груп,форм грид или на другие выходит ошибка типа :

От чего это может бытЬ? вот проект:
0
Миниатюры
ОШибка при клике  
Вложения
Тип файла: rar lab_4.rar (99.0 Кб, 5 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.03.2013, 22:17
Ответы с готовыми решениями:

При клике открыть папку
что за код, можно придумать чтоб при клике на кнопку открыть папку (папка лежит...

Преобразовать координаты при клике
Есть ли функция которая может преобразовать координаты клика по Image в...

Звук "ТЫНС" при нажатии кнопки клавиатуры. При клике мышкой норм, хотя суть одна
Собсно сабж. Когда указатель висит в поле ввода, при клике на Esc или Enter...

При двойном клике на итеме Listbox'a
Привет! Плиз помогите! Надо чтобы при двойном клике на соответствующим предмете...

Убрать меню при клике на иконку
Собственно нужно убрать возможность клика на иконку(я ее растянул) поэтому не...

5
nVz
170 / 168 / 30
Регистрация: 12.12.2009
Сообщений: 1,336
17.03.2013, 22:19 #2
посмотрите "end;" нигде ли не потеряли?!
0
MaDiNa
3 / 3 / 1
Регистрация: 02.04.2012
Сообщений: 107
17.03.2013, 22:22  [ТС] #3
Цитата Сообщение от nVz Посмотреть сообщение
посмотрите "end;" нигде ли не потеряли?!
да вроде нет...весь код проверила...
0
angstrom
2470 / 1846 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
17.03.2013, 22:29 #4
Delphi
1
2
3
4
5
6
    procedure Chart1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Chart1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Chart1MouseUp(Sender: TObject; Button: TMouseButton; // !!!
      Shift: TShiftState; X, Y: Integer);
Ничего что процедура дублируется?
1
cotseec
Пишу на Delphi...иногда
1407 / 1267 / 284
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
17.03.2013, 22:30 #5
правил на D7, закомментируйте или удалите то, что помечено звездочками(***********) и добавьте один енд (помечен ++++++++++)
Кликните здесь для просмотра всего текста
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
type
  TForm1 = class(TForm)
    Chart1: TChart;
    BitBtn1: TBitBtn;
    Series1: TLineSeries;
    ComboBox1: TComboBox;
    Series10: TLineSeries;
    Series2: TPointSeries;
    Series3: TBarSeries;
    Series4: TAreaSeries;
    Series5: TFastLineSeries;
    Series6: TFastLineSeries;
    Series7: TPointSeries;
    Series8: TBarSeries;
    Series9: TAreaSeries;
    Panel1: TPanel;
    Label1: TLabel;
    SpinButton1: TSpinButton;
    SpinButton2: TSpinButton;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    TrackBar3: TTrackBar;
    ProgressBar1: TProgressBar;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    RadioGroup1: TRadioGroup;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Ris;
    procedure SpinButton1UpClick(Sender: TObject);
    procedure SpinButton1DownClick(Sender: TObject);
    procedure SpinButton2UpClick(Sender: TObject);
    procedure SpinButton2DownClick(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure TrackBar3Change(Sender: TObject);
    procedure Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Chart1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Chart1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    {procedure Chart1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);   ******************************}
    procedure FormResize(Sender: TObject);
 
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 var Sh, Vs,
    x1,y1,
    NN:integer;
    Dragg:boolean;
 
{$R *.dfm}
 
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
{Shift : TShiftState; X, Y: Integer); ***********************}
begin
if dragg then
    case RadioGroup1.ItemIndex  of
    0: begin
    Chart1.Left:=Chart1.Left+x-x1;
    Chart1.Top:=Chart1.Top+y-y1;
    end;
    1: begin
    Chart1.Width:=Chart1.Width+round(0.01*(x-x1));
    Chart1.Height:=Chart1.Height+round(0.01*(y-y1));
end; end;
 
end;
end;//++++++++++++++++++++
 
procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
x1:=x; y1:=y;
dragg:=true;
end;
 
 
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
NN:=ComboBox1.ItemIndex;
Ris;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.ItemIndex:=0;
Sh:=Chart1.Width; Vs:=Chart1.Height;
NN:=0;
end;
 
procedure TForm1.Ris;
//begin  ******************************
const N=10;
var x,y:real;
    dx: real;i:integer;
    st:string;
const c:array[0..4] of string=('ëèГ*èÿìè','ëåГ*ГІГ*ìè','òî÷êГ*ìè','ГЇГ*Г°Г*ëëåëåïèïåäГ*ìè','ïëîñêîñòÿìè');
begin
    Form1.Caption:='ÐèñîâГ*Г*ГЁГҐ Г*Г* Chart ГЅГЄГ±ГЇГ®Г*ГҐГ*ГІ '+c[NN];
    for i:=0 to Chart1.SeriesCount-1 do
    Chart1[i].Active:=False;
    Chart1[NN].Active:=True;
    Chart1[NN+5].Active:=True;
    dx:=2.0/N;
    x:=-0.6;
    for i:=1 to N do
    Begin
    y:=exp(x);
    str(x:6:2,st);
    Chart1[NN].AddXY(x,y,st,clTeeColor);
    Chart1[NN+5].AddXY(x,0.5*y,st,clTeeColor);
    x:=x+dx;
    end;
    BitBtn1.SetFocus;
end;
 
//end;**********************
 
 
procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
chart1.Height:=round(0.9*chart1.Height);
end;
 
procedure TForm1.SpinButton1UpClick(Sender: TObject);
begin
chart1.Height:=round(1.1*chart1.Height);
end;
 
procedure TForm1.SpinButton2DownClick(Sender: TObject);
begin
chart1.Width:=round(0.9*chart1.Width);
end;
 
procedure TForm1.SpinButton2UpClick(Sender: TObject);
begin
chart1.Width:=round(1.1*chart1.Width);
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
chart1.Height:=vs+TrackBar1.Position;
ProgressBar1.Position:=TrackBar1.Position;
end;
 
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
chart1.Width:=sh+TrackBar2.Position;
chart1.Height:=vs+TrackBar2.Position;
ProgressBar1.Position:=TrackBar2.Position;
end;
 
procedure TForm1.TrackBar3Change(Sender: TObject);
begin
chart1.Width:=sh+TrackBar3.Position;
ProgressBar1.Position:=TrackBar3.Position;
end;
//end;**********************
 
procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Dragg:=False;
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
Ris;
end;
end.
1
MaDiNa
3 / 3 / 1
Регистрация: 02.04.2012
Сообщений: 107
17.03.2013, 22:38  [ТС] #6
Цитата Сообщение от cotseec Посмотреть сообщение
правил на D7, закомментируйте или удалите то, что помечено звездочками(***********) и добавьте один енд (помечен ++++++++++)
Кликните здесь для просмотра всего текста
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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
type
  TForm1 = class(TForm)
    Chart1: TChart;
    BitBtn1: TBitBtn;
    Series1: TLineSeries;
    ComboBox1: TComboBox;
    Series10: TLineSeries;
    Series2: TPointSeries;
    Series3: TBarSeries;
    Series4: TAreaSeries;
    Series5: TFastLineSeries;
    Series6: TFastLineSeries;
    Series7: TPointSeries;
    Series8: TBarSeries;
    Series9: TAreaSeries;
    Panel1: TPanel;
    Label1: TLabel;
    SpinButton1: TSpinButton;
    SpinButton2: TSpinButton;
    TrackBar1: TTrackBar;
    TrackBar2: TTrackBar;
    TrackBar3: TTrackBar;
    ProgressBar1: TProgressBar;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    RadioGroup1: TRadioGroup;
    procedure FormActivate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Ris;
    procedure SpinButton1UpClick(Sender: TObject);
    procedure SpinButton1DownClick(Sender: TObject);
    procedure SpinButton2UpClick(Sender: TObject);
    procedure SpinButton2DownClick(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure TrackBar3Change(Sender: TObject);
    procedure Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Chart1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Chart1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    {procedure Chart1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);   ******************************}
    procedure FormResize(Sender: TObject);
 
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 var Sh, Vs,
    x1,y1,
    NN:integer;
    Dragg:boolean;
 
{$R *.dfm}
 
procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
{Shift : TShiftState; X, Y: Integer); ***********************}
begin
if dragg then
    case RadioGroup1.ItemIndex  of
    0: begin
    Chart1.Left:=Chart1.Left+x-x1;
    Chart1.Top:=Chart1.Top+y-y1;
    end;
    1: begin
    Chart1.Width:=Chart1.Width+round(0.01*(x-x1));
    Chart1.Height:=Chart1.Height+round(0.01*(y-y1));
end; end;
 
end;
end;//++++++++++++++++++++
 
procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
x1:=x; y1:=y;
dragg:=true;
end;
 
 
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
NN:=ComboBox1.ItemIndex;
Ris;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
ComboBox1.ItemIndex:=0;
Sh:=Chart1.Width; Vs:=Chart1.Height;
NN:=0;
end;
 
procedure TForm1.Ris;
//begin  ******************************
const N=10;
var x,y:real;
    dx: real;i:integer;
    st:string;
const c:array[0..4] of string=('ëèГ*èÿìè','ëåГ*ГІГ*ìè','òî÷êГ*ìè','ГЇГ*Г°Г*ëëåëåïèïåäГ*ìè','ïëîñêîñòÿìè');
begin
    Form1.Caption:='ÐèñîâГ*Г*ГЁГҐ Г*Г* Chart ГЅГЄГ±ГЇГ®Г*ГҐГ*ГІ '+c[NN];
    for i:=0 to Chart1.SeriesCount-1 do
    Chart1[i].Active:=False;
    Chart1[NN].Active:=True;
    Chart1[NN+5].Active:=True;
    dx:=2.0/N;
    x:=-0.6;
    for i:=1 to N do
    Begin
    y:=exp(x);
    str(x:6:2,st);
    Chart1[NN].AddXY(x,y,st,clTeeColor);
    Chart1[NN+5].AddXY(x,0.5*y,st,clTeeColor);
    x:=x+dx;
    end;
    BitBtn1.SetFocus;
end;
 
//end;**********************
 
 
procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
chart1.Height:=round(0.9*chart1.Height);
end;
 
procedure TForm1.SpinButton1UpClick(Sender: TObject);
begin
chart1.Height:=round(1.1*chart1.Height);
end;
 
procedure TForm1.SpinButton2DownClick(Sender: TObject);
begin
chart1.Width:=round(0.9*chart1.Width);
end;
 
procedure TForm1.SpinButton2UpClick(Sender: TObject);
begin
chart1.Width:=round(1.1*chart1.Width);
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
chart1.Height:=vs+TrackBar1.Position;
ProgressBar1.Position:=TrackBar1.Position;
end;
 
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
chart1.Width:=sh+TrackBar2.Position;
chart1.Height:=vs+TrackBar2.Position;
ProgressBar1.Position:=TrackBar2.Position;
end;
 
procedure TForm1.TrackBar3Change(Sender: TObject);
begin
chart1.Width:=sh+TrackBar3.Position;
ProgressBar1.Position:=TrackBar3.Position;
end;
//end;**********************
 
procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Dragg:=False;
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
Ris;
end;
end.

Огромное спасибо))))
0
17.03.2013, 22:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2013, 22:38

При клике на кнопку выводится текст в Edit1.
ПОдскажите плз как сделать так что бы при нажатии кнопки, в форму Edit1 (не...

Вывести сообщение при клике на 2 одинаковых картинки
привет всем. динамически в массиве создаю 36 изображений. у каждого...

Активация MDI-формы при клике на кнопку
У меня возник вопрос у специалистов по Delphi. Создаю клиент-серверное...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru