|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
StrinGrid ячейка как кнопка
Как зделать что бы в делфе StrinGrid при нажатие на любую ячейку(ячейка использовалась как кнопка) происходили какието действия.
??? Подскажите плис |
#2
|
||||
|
||||
Назначить действия в событии OnClick (OnKeyPress, OnKeyDown). Выбирай какое больше нравится. В событии узнать ячейку по координатам мышки - MouseToCell и... тру-ля-ля.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#3
|
||||
|
||||
Кстати, есть возможность при получения фокуса ячейкой, показать в ней реальную кнопку. Возможно такой вариант больше подойдёт.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#4
|
|||
|
|||
а мож. плис на примере
if strngrd1.MouseToCell(1,2,StringGrid1.RowCount,Stri ngGrid1.ColCount) then begin strngrd1.Cells[1, 2]:='F'; end;мой не идет |
#5
|
||||
|
||||
Вот пример на OnMouseDown:
Код:
procedure TForm2.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var Col, Row: LongInt; begin StringGrid1.MouseToCell(X, Y, Col, Row); if (Col = 1) and (Row = 1) then begin StringGrid1.Cells[Col, Row] := 'F'; end; end; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
|||
|
|||
Спасибо)
|