Текущий архив: 2005.10.16;
Скачать: CL | DM;
Вниз
Stringgrid Найти похожие ветки
← →
Lower_ (2005-09-04 20:21) [0]Здраствуйте.
Скажите, как сделать так, чтобы,
если в ячейках Stringgrid не было данных - он ее не
выделял.
if (grid.Row >2) and (length(grid.Cells[3,grid.Row]) > 0) then
нет выделения.
← →
Defunct © (2005-09-04 20:50) [1]В OnDrawCell
with TStringGrid( Sender ) do
begin
if Cells[ACol, ARow] = "" {либо ваше условие} then
with Canvas do
begin
Pen.Color := Color;
Brush.Color := Color;
FillRect( Rect );
end;
end
← →
begin...end © (2005-09-04 21:07) [2]> Lower_ (04.09.05 20:21)
> Скажите, как сделать так, чтобы,
> если в ячейках Stringgrid не было данных - он ее не
> выделял.procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
CanSelect := (Sender as TStringGrid).Cells[ACol, ARow] <> ""
end
P.S. Из свойства Options исключите goRangeSelect.
Страницы: 1 вся ветка
Текущий архив: 2005.10.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.041 c
