Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.036 c
14-1127390200
han_malign
2005-09-22 15:56
2005.10.16
MS VC++ - загадка


8-1116755107
MACTEP'oK
2005-05-22 13:45
2005.10.16
DirectSound. Проблема с записью длительного звукового потока .


1-1127388681
grizzli
2005-09-22 15:31
2005.10.16
Админ delphi


11-1108630956
thaddy
2005-02-17 12:02
2005.10.16
ClsStyle or CS_NOCLOSE doesn t work properly


1-1127464987
ZeroDivide
2005-09-23 12:43
2005.10.16
Проблема с оторбражением свойств в Инспекторе Объектов.