Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

StringGrid

Нуб © (2007-03-19 10:28:00)
Здрасте. Каким образом можна определить выделенные ячейки стрингрида ?

Плохиш (2007-03-19 13:56:00) [1]

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

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

Нуб (2007-03-19 12:39:00) [2]

> 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.

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

Нуб (2007-03-19 12:37:00) [3]

> clickmaker ©

а что за Selection ?

Нуб (2007-03-19 12:37:00) [4]

> ЮЮ ©

ага, я понял, не у нас тут без скролла, так что уже все работает без сбоев , код написан, пью кофе :)

ЮЮ (2007-03-19 11:31:00) [5]
> с причем здесь скролл ? :),

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

clickmaker (2007-03-19 11:27:00) [6]

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

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

Нуб (2007-03-19 11:25:00) [7]

> ЮЮ ©

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

Нуб (2007-03-19 11:21:00) [8]

> clickmaker ©

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

ЮЮ (2007-03-19 11:12:00) [9]
С таким же успехои

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

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

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

clickmaker (2007-03-19 11:11:00) [10]

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

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

Нуб (2007-03-19 11:06:00) [11]

> 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 )+ ']';
дальше только дело техники

Kolan (2007-03-19 10:58:00) [12]
> вообщем буду писать через Х , У ,

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

Нуб (2007-03-19 10:56:00) [13]

> Kolan ©

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

Kolan (2007-03-19 10:53:00) [14]
> это каких же размеров грид?

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

clickmaker (2007-03-19 10:47:00) [15]

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

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

Kolan (2007-03-19 10:45:00) [16]
> [2] Нуб (19.03.07 10:33)
> procedure TForm1.StringGrid1SelectCell(Sender: TObject;
> ACol,
> ARow: Integer; var CanSelect: Boolean) — ?

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

Нуб (2007-03-19 10:45:00) [17]
не одну !!!, а область некоторую , конечно можно через Х, У , но это будем громоздко и займет пару часов, может как-то проще можно ?

Нуб (2007-03-19 10:33:00) [18]
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean) - ?

Kolan (2007-03-19 10:31:00) [19]
Selection?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »