| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
StringGrid [D7, WinXP]
zep © (2004-06-21 16:20:00)как в StringGrid отрабатывать на разных ячейках рахней OnClick
зарание спасибо.
zep (2004-06-21 21:32:00) [1]все спасибо разобрался
san (2004-06-21 21:19:00) [2]При onClick проверяй та ли ячейка которая тебе нужна или не та.
begin...end (2004-06-21 20:38:00) [3]
> [3] begin...end © (21.06.04 20:35)
var
Col umn, Row: Integer;
begin...end (2004-06-21 20:35:00) [4]Ну так и показывай свои панельки.
TFormName.StringGridNameMouseUp {или MouseDown} ...
var
Col, Row: Integer;
begin
StringGridName.MouseToCell(X, Y, Column, Row);
if (Column = 1) and (Row = 1) and {панелька не показана} then
// показываем панельку
else if (Column = 2) and (Row = 2) and {панелька показана} then
// прячем панельку
end;
zep (2004-06-21 20:29:00) [5]ну посмотрел я справку нашол только как при нажатии на ячейку на ней появлялась надпись
вот код
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.DefaultColWidth := 100;
end;
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Column, Row: Longint;
begin
StringGrid1.MouseToCell(X, Y, Column, Row);
StringGrid1.Cells[Column, Row] := 'Col ' + IntToStr(Column) +
',Row ' + IntToStr(Row);
end;
пытался изменить ну чтото у меня совсем не получилось
мне надо чтобы например при нажатии ячейки
StringGrid1.Cells[1,1]появлялась понелька
а при StringGrid1.Cells[2,2] она исчезала ну или типо того.
Amoeba (2004-06-21 16:22:00) [6]MouseToCell + F1
| |
