StringGrid

← →
Нуб (2007-03-19 10:28) [0]

Здрасте. Каким образом можна определить выделенные ячейки стрингрида ?

← →
Kolan © (2007-03-19 10:31) [1]

Selection?

← →
Нуб (2007-03-19 10:33) [2]

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean) - ?

← →
Нуб (2007-03-19 10:45) [3]

не одну !!!, а область некоторую , конечно можно через Х, У , но это будем громоздко и займет пару часов, может как-то проще можно ?

← →
Kolan © (2007-03-19 10:45) [4]

> [2] Нуб (19.03.07 10:33)
> procedure TForm1.StringGrid1SelectCell(Sender: TObject;
> ACol,
> ARow: Integer; var CanSelect: Boolean)  ?

Ну это событие при выделении, тебе же надо просто выделенные ячейки&#133

← →
clickmaker © (2007-03-19 10:47) [5]

> но это будем громоздко и займет пару часов

это каких же размеров грид?

← →
Kolan © (2007-03-19 10:53) [6]

> это каких же размеров грид?

Я думаю это он про свою работу :)

← →
Нуб (2007-03-19 10:56) [7]

> Kolan ©

да это я про свою работу :), вообщем буду писать через Х , У , тема закрыта , всем спасибА

← →
Kolan © (2007-03-19 10:58) [8]

> вообщем буду писать через Х , У ,

Я, честно, так и не понял что за XY&#133

← →
Нуб (2007-03-19 11:06) [9]

> Kolan ©

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

гы , уже написал
Label3.Caption := "Вы выбрали ячейку [" + IntToStr(X div StringGrid1.DefaultColWidth ) + "," +IntToStr(Y div StringGrid1.DefaultRowHeight )+ "]";
дальше только дело техники

← →
clickmaker © (2007-03-19 11:11) [10]

> [9] Нуб (19.03.07 11:06)

а зачем было "два часа" париться, когда в StringGrid1.Selection уже номер строки и столбца?

← →
ЮЮ © (2007-03-19 11:12) [11]

С таким же успехои

> procedure TForm1.StringGrid1SelectCell(Sender: TObject;
> ACol,
> ARow: Integer; var CanSelect: Boolean)

Label3.Caption := "Вы выбрали ячейку [" + IntToStr(ARow) + "," +IntToStr(ARow]";

З.Ы. в гриде строки(столбцы) имеют способность скроллироваться и алгоритм в [9] будет неверным

← →
Нуб (2007-03-19 11:21) [12]

> clickmaker ©

так я и не парился 2 часа , а всего лишь 5 мин. :), а может StringGrid1.Selection еще и покажет мне выделенную область ячеек ? :)

← →
Нуб (2007-03-19 11:25) [13]

> ЮЮ ©

с причем здесь скролл ? :), задача заключается в следующем при нажатии левой кнопки мышки :) на допустим ячейку с координатами [1,2] я мышку виду по коврику до ячейки [4,5] и потом отпускаю эту же левую кнопку мышки :), и при этом у меня фиксируются данные х1 = 1, х2 = 4, у1=2 и у2=5, после этого я через цикл заколбашу это все в один стринг, закину в буффер и это все красиво очутиЦЦа на листе excel, вообщем типа вот я все не красиво задумал, поймите правильно ;)

> при нажатии левой кнопки мышки :) на допустим ячейку с координатами
> [1,2] я мышку виду по коврику до ячейки [4,5] и потом отпускаю
> эту же левую кнопку мышки :), и при этом у меня фиксируются
> данные х1 = 1, х2 = 4, у1=2 и у2=5, после этого я через
> цикл заколбашу это все в один стринг, закину в буффер

вот именно для этого и нужно Selection

> с причем здесь скролл ? :),

При том, что строк может быть гораздо больше, чем можно увидеть на экране сразу. и "видимая" 1-я строка может быть реальной 20-ой

← →
Нуб (2007-03-19 12:37) [16]

← →
Нуб (2007-03-19 12:37) [17]

← →
Нуб (2007-03-19 12:39) [18]

> clickmaker ©

property Selection: TGridRect;

Description

Set Selection to select a range of cells in the grid. Selection can either represent the first column, first row, last column and last row in the grid, or the row and column coordinates of the upper left and bottom right cells in the selected region.

Selection can only indicate more than one cell when Options includes goRangeSelect.

шибануЦЦа а я сам написал, от балбес

> Нуб (19.03.07 12:39) [18]
> шибануЦЦа а я сам написал, от балбес

балбес - это очень мягко, см. [1]

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