StringGrid

← →
zep © (2004-06-21 16:20) [0]

как в StringGrid отрабатывать на разных ячейках рахней OnClick
зарание спасибо.

← →
Amoeba © (2004-06-21 16:22) [1]

MouseToCell + F1

← →
zep © (2004-06-21 20:29) [2]

ну посмотрел я справку нашол только как при нажатии на ячейку на ней появлялась надпись
вот код
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] она исчезала ну или типо того.

← →
begin...end © (2004-06-21 20:35) [3]

Ну так и показывай свои панельки.

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;

← →
begin...end © (2004-06-21 20:38) [4]

> [3] begin...end © (21.06.04 20:35)

var Column, Row: Integer;

← →
san (2004-06-21 21:19) [5]

При onClick проверяй та ли ячейка которая тебе нужна или не та.

все спасибо разобрался

StringGrid Найти похожие ветки