| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
MouseDown
Romm © (2007-07-04 18:10:00)Еще раз здравствуйте Мастера.
Сегодня не получается осуществить следущее:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Form1.MouseDown(mbLeft, ssLeft,X,Y) then
Form1.Canvas.Pixels[X,Y]:=clBlack;
end;
Вот собственно по справке, а получается несоответствие типов.
Скажите как правильно.
Спасибо
Romm (2007-07-04 18:22:00) [21]
> TShiftState + F1
> type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft,
> ssRight, ssMiddle, ssDouble);
воть... а как нужно правильно параметр указать?
Romm (2007-07-04 18:21:00) [22]
> Johnmen © (04.07.07 18:18) [1]
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); dynamic;
type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
ssLeft The left mouse button is held down.
Johnmen (2007-07-04 18:20:00) [23]Да ладно, не надо :)
Читай TShiftState + F1
Johnmen (2007-07-04 18:18:00) [24]
> Вот собственно по справке,
Справку в студию!
| |
Страницы: 