VPF::Поменять местами колонки в StringGrid

Lunatikus

Дата 14.11.2007, 14:11 (ссылка)

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

Загрузка ...

Опытный

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

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

Здравствуйте. Как можно сделать описанную операцию?Я не прошу код,только ваши логические предложения,А то в голову ничего не идет. Получается,надо обрабатывать событие стринггрида OnColumnMove?И что, в таком случае, надо в этом событии изменять номера колонок и перерисовывать все заново?А если объем данных очень большой?(10-20 тысяч записей). Да, они нужны все и сразу) вопрос стоит не в этом.Спасибо за помощь.

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

TheSin - небольшое игровое сообщество взрослых и молодых(L2,WoW,Aion,RFonline and other not mmorpg,not computer games).
сайт гильдии

Lunatikus

Дата 14.11.2007, 14:33 (ссылка)

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

Загрузка ...

Опытный

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

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

нашел в опциях компоненты option->goColMoving.Видимо это как раз то,что надо.

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

TheSin - небольшое игровое сообщество взрослых и молодых(L2,WoW,Aion,RFonline and other not mmorpg,not computer games).
сайт гильдии

ama_kid

Дата 14.11.2007, 14:34 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

ну вот пример моих логических предположений:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
 StringGrid1.Cols[StringGrid1.RowCount]:=StringGrid1.Cols[3];
 StringGrid1.Cols[3]:=StringGrid1.Cols[1];
 StringGrid1.Cols[1]:=StringGrid1.Cols[StringGrid1.RowCount];
 StringGrid1.Cols[StringGrid1.RowCount].Clear;
end;

Обмен через скрытую область колонок...

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

самурай без меча подобен самураю с мечом, но только без меча

VICTAR

Дата 14.11.2007, 14:38 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


procedure TForm1.btn1Click(Sender: TObject);
var TmpList: TStringList;
begin
 TmpList:=TStringList.Create;
 try
   TmpList.Assign(grd1.Cols[0]);
   grd1.Cols[0].Assign(grd1.Cols[1]);
   grd1.Cols[1].Assign(TmpList);
 finally
   TmpList.Free;
 end;
end;

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