| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос скорее по Object Pascal ... [D5, Win95/98]
Андрей Ч. © (2002-07-13 21:11:00)Я создаю два каких-либо визуальных объекта на форме. Допустим - GroupBox"ы. Создаю две процедуры обработки события MouseDownдля двух GroupBox"ов. Дале пытаюсь вызвать MouseDown для первого GroupBox"а из второго с такими-же параметрами как у второго и не получается:
procedure TForm1.GroupBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
edit1.text:="Check Good!";
end;
procedure TForm1.GroupBox2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var m:tmouse;
begin
GroupBox1MouseDown(Sender;Button;X;Y); // !!!
end;
В строке //!!!пишет ошибку "Not enough actual parameters" (в сообщении об ошибке курсор мигает перед словом "Button").
Тогда как с событием Click вызов одоного из другого работает нормально.
Что неверно?
Андрей Ч. (2002-07-14 18:14:00) [1]Thanks all, ssory за орфграфические ошибки!
lensky (2002-07-14 04:48:00) [2]pomoemu on eshe shift zabil...
GroupBox1MouseDown(Sender,Button,Shift,X,Y);
hotai moshet ia i ne prav:)
TTCustomDelphiMaster (2002-07-13 21:59:00) [3]Вместо
GroupBox1MouseDown(Sender;Button;X;Y); // !!!
напиши
GroupBox1MouseDown(Sender,Button,X,Y); // !!!
| |
