Текущий архив: 2006.06.18;
Скачать: CL | DM;

Вниз

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

← →
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);

---

Страницы: 1 вся ветка

Текущий архив: 2006.06.18;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.056 c