Вопрос скорее по Object Pascal ...

← →
Андрей Ч. (2002-07-13 21:11) [0]

Я создаю два каких-либо визуальных объекта на форме. Допустим - 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 вызов одоного из другого работает нормально.

Что неверно?

← →
TTCustomDelphiMaster (2002-07-13 21:59) [1]

Вместо
GroupBox1MouseDown(Sender;Button;X;Y); // !!!
напиши
GroupBox1MouseDown(Sender,Button,X,Y); // !!!

← →
lensky (2002-07-14 04:48) [2]

pomoemu on eshe shift zabil...
GroupBox1MouseDown(Sender,Button,Shift,X,Y);
hotai moshet ia i ne prav:)

← →
Андрей Ч. (2002-07-14 18:14) [3]

Thanks all, ssory за орфграфические ошибки!

Вопрос скорее по Object Pascal ... Найти похожие ветки