![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Блин, молчит и всё тут, вообще на неё не переходит..
Код:
procedure TFAddEquipment.EquipmentStringGridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin //Æèðíûé çàãîëîâîê if ARow=0 then (Sender as TStringGrid).Canvas.Font.Style:=[fsBold] else (Sender as TStringGrid).Canvas.Font.Style:=[]; (Sender as TStringGrid).Canvas.TextOut(Rect.Left+2,Rect.Top+2,(Sender as TStringGrid).Cells[ACol,ARow]); end; Код:
procedure TFAddEquipment.EquipmentStringGridClick(Sender: TObject); begin ShowMessage('EquipmentStringGridClick'); end; |
#2
|
|||
|
|||
![]() перешёл на описание TStringGrid - там вроде OnClick отсутствует. Как такое может быть???
|
#3
|
|||
|
|||
![]() блин, всё же срабатывает, но когда нажимаю на строке, если таковая имеется. а если в пустом месте - не работает... почему так? как исправить? или только OnMouseDown остаётся?
|
#4
|
||||
|
||||
![]() Для пустого места только OnMouseDown.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
sorockinalex (08.11.2012)
|