Главная страница
    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.45 MB
Время: 0.015 c
2-1150039565
learner
2006-06-11 19:26
2006.07.02
Правильное ведение лога с использованием нитей


2-1150370616
КиТаЯц
2006-06-15 15:23
2006.07.02
Форма из DLL поверх вызвавшего окна


1-1147812521
ychenick
2006-05-17 00:48
2006.07.02
Папки как файлы ( отображение как zip архив)


1-1148476437
alec_sey
2006-05-24 17:13
2006.07.02
Массивы


3-1146636466
supervk
2006-05-03 10:07
2006.07.02
Установка ISOLATION LEVEL по умолчанию для MSSQL 2000.





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