VPF::Выделение в TStringGrid и TListView - Форум программистов

danilsl

Дата 3.7.2007, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 15.3.2006

Репутация: нет
Всего: нет

Привет всем. У меня на форме два компонента: TStringGrid и TListView. Мне нужно, чтобы при выделении элемента в ListView в StringGrid выделялась строка с номером, соответствующим индексу выделеного элемента в ListView и наоборот. Как это реализовать, не прибегая к эмуляции клика мыши по нужному элементу? Нужных для этого процедур ни в одном компоненте я не нашёл.
Заранее всем спасибо.

Добавлено @ 15:12
И как программно изменить ширину колонок в TStringGrig?

Это сообщение отредактировал(а) danilsl - 3.7.2007, 15:34

Rennigth

Дата 3.7.2007, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

TStringList? А что ты подразумеваетшь под:

Цитата

в TStringList выделялась строка с номером

Никогда о таком не слышал smile

TStringGrid или TListBox может быть имеешь ввиду? smile

--------------------

(* Honesta mors turpi vita potior *)

danilsl

Дата 3.7.2007, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 15.3.2006

Репутация: нет
Всего: нет

Цитата(Rennigth @ 3.7.2007, 15:13)

TStringList? А что ты подразумеваетшь под:

Цитата

в TStringList выделялась строка с номером

Никогда о таком не слышал smile

TStringGrid или TListBox может быть имеешь ввиду? smile

Виноват, исправился. Именно TStringGrid.

Rennigth

Дата 3.7.2007, 16:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Код


unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids;

type
  TForm8 = class(TForm)
    strngrd1: TStringGrid;
    lv1: TListView;
    procedure strngrd1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure lv1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private
    FLockSelection: Boolean;
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.lv1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  if (not FLockSelection) and Selected then
  begin
    FLockSelection := True;
    try
      strngrd1.Row := lv1.ItemIndex;
    finally
      FLockSelection := False;
    end;
  end;
end;

procedure TForm8.strngrd1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  if (not FLockSelection) and CanSelect then
  begin
    FLockSelection := True;
    try
      lv1.ItemIndex := ARow;
    finally
      FLockSelection := False;
    end;
  end;
end;

end.

--------------------

(* Honesta mors turpi vita potior *)

danilsl

Дата 3.7.2007, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 15.3.2006

Репутация: нет
Всего: нет

Со StringGrid проходит, а вот на ListView вываливается в ошибку сразу при прорисовке формы. Жму Continue, вроде всё работает, но в ListView ничего не выделяется.
И ещё вопрос. А зачем FLockSection? Обе функции выполняются в пределах одного потока, значит их паралельного выполнения в принципе быть не может.

Rennigth

Дата 3.7.2007, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Цитата(danilsl @ 3.7.2007, 17:10

)

Со StringGrid проходит, а вот на ListView вываливается в ошибку сразу при прорисовке формы. Жму Continue, вроде всё работает, но в ListView ничего не выделяется.

Ты просто ListView не настроил(нужно выставить vsReport, RowSelected и все такое). Ну плюс я не делал проверок на кол-во итемов в списках, т.к. подразумевал что у тебя их одинаковое кол-во.

Цитата(danilsl @ 3.7.2007, 17:10

)

А зачем FLockSection? Обе функции выполняются в пределах одного потока, значит их паралельного выполнения в принципе быть не может.

Чтобы на вечно не зациклица т.к.

Код


strngrd1.Row := lv1.ItemIndex;

вызывает эвент listview strngrd1SelectCell
и наоборот
lv1.ItemIndex := ARow;
вызывает

Код


Эвент lv1SelectItem

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »