![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
|
|
#1
|
|||
|
|||
|
Как зделать что бы в делфе StrinGrid при нажатие на любую ячейку(ячейка использовалась как кнопка) происходили какието действия.
??? Подскажите плис |
|
#2
|
||||
|
||||
|
Назначить действия в событии OnClick (OnKeyPress, OnKeyDown). Выбирай какое больше нравится. В событии узнать ячейку по координатам мышки - MouseToCell и... тру-ля-ля.
|
|
#3
|
||||
|
||||
|
Кстати, есть возможность при получения фокуса ячейкой, показать в ней реальную кнопку. Возможно такой вариант больше подойдёт.
|
|
#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; |
|
#6
|
|||
|
|||
|
Спасибо
) |