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

Вниз

OnDblClick в DrawGrid   Найти похожие ветки 

 
Евгений Р.   (2006-05-15 14:24) [0]

Ячейка условно разбита на несколько частей.
Как можно определить по какой части ячейки произведен двойной щеччок мышкой


 
Jeer ©   (2006-05-15 14:31) [1]

OnMouseDown, а дальше сам, ручками


 
unknown ©   (2006-05-15 14:43) [2]

Элементарно :)
procedure TForm1.DrawGrid1DblClick(Sender: TObject);
var
 p:TPoint;
 C:TRect;
begin
 p:=DrawGrid1.ScreenToClient(Mouse.CursorPos);
 with DrawGrid1 do
   C:=CellRect(Col,Row);
 if PtInRect(C,P)  then  // А вдруг щелчек не на ячейке?
   ShowMessage(
     "Координаты относительно DrawGrid1: X:"+IntToStr(P.X)+" Y:"+IntToStr(P.Y)+#13#10+
     "Координаты относительно конкретной ячейки: X:"+IntToStr(P.X-C.Left)+" Y:"+IntToStr(P.Y-C.Top));
end;

Здесь просто локализация курсора относительно ячейки, P.X-C.Left и P.Y-C.Top - конкретные координаты относительно ячейки.
Определить в какой именно части произведен клик - это Вы и сами сделаете.


 
Евгений Р.   (2006-05-15 16:25) [3]

Большое спасибо unknown ©


 
unknown_   (2006-06-03 10:23) [4]

А как учесть скролинг, в DrawGrid?



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

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

Наверх




Память: 0.44 MB
Время: 0.011 c
2-1150194681
ййййййййй
2006-06-13 14:31
2006.07.02
А что функция beep в win2000 не работает? :(


1-1148157851
learner
2006-05-21 00:44
2006.07.02
Сохранение коллекции в потоке.


6-1140437175
Новочеркасский Волк
2006-02-20 15:06
2006.07.02
Дистанционный набор текста.


11-1129697831
Vladimir Kladov
2005-10-19 08:57
2006.07.02
Версия 2.17


2-1150301668
VitV
2006-06-14 20:14
2006.07.02
настройка транзакции





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский