Вызов процедуры события

← →
Hadroran (2006-06-01 09:17) [0]

Есть процедура события метки
procedure TFormGlava.cxLabel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ... end;
Необходимо вызвать ее из другой процедуры.
Знаю что
type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
Как правильно написать код?
cxLabel1MouseMove(cxLabel1,?????,0,0);

← →
icWasya © (2006-06-01 09:21) [1]

cxLabel1MouseMove(cxLabel1,[ssShift, ssAlt, ssMiddle],0,0);

Вызов процедуры события Найти похожие ветки