Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Вниз

События мышки   Найти похожие ветки 

 
BAngel   (2006-05-08 13:37) [0]

Помогите пожалуйста разобраться. Мне нужно что бы прога распознавала когда я на картинке нажимая ЛКМ, а когда ПКМ


 
KilkennyCat ©   (2006-05-08 13:41) [1]

procedure TForm1.KaртинкаMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
 
Button может принимать следующие значения: mbLeft, mbRight, mbMiddle

end;


 
BAngel   (2006-05-08 14:08) [2]

у меня щас некоторые проблемы с делфи, так что не могу проверить. Зарание спасибо. Я ещё вернусь с вопросами


 
Пусик ©   (2006-05-08 14:15) [3]


> BAngel


Что есть каритинка?


 
BAngel   (2006-05-08 14:34) [4]


>
> Что есть каритинка?
TImage


 
BAngel   (2006-05-08 21:46) [5]


> procedure TForm1.KaртинкаMouseDown(Sender: TObject; Button:
>  TMouseButton;

А как эту процедуру вызывать. Она почему то не ставится в Object Inspector на OnMouseDown


 
Мефисто   (2006-05-08 22:37) [6]

>> А как эту процедуру вызывать. Она почему то не ставится в Object Inspector на OnMouseDown

Ее не вставляют. В обработчике компонента OnMouseDown пищем

 case Button of
   mbLeft: ... ;
   mbRight: ... ;
   mbMiddle: ... ;
 end;



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

Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.011 c
2-1147508866
_duk
2006-05-13 12:27
2006.05.28
DBGrid


1-1145128372
Volf_555
2006-04-15 23:12
2006.05.28
Проблема с вызовом процедуры из DLL


2-1147344647
apl
2006-05-11 14:50
2006.05.28
Про файлы


6-1138706724
Andrewk88
2006-01-31 14:25
2006.05.28
TWebBrowser


2-1147248805
mctarik
2006-05-10 12:13
2006.05.28
Как сие оптимизировать? ИМХО!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский