Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

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

 
Ola   (2002-05-17 08:01) [0]

Помогите, пожалуйста надо в заполненном гриде менять порядок строк (выделять строку и перетаскиватьна новое место).... заранее спасибо....


 
Song ©   (2002-05-17 08:15) [1]

Технология Drag Drop Поищи здесь, про TListBox был пример, да наверняка и факе есть...


 
Ola   (2002-05-17 08:17) [2]

спасибочки


 
MBo ©   (2002-05-17 08:25) [3]

Так можно обменивать строки при нажатом Alt и мышкой на фиксированной колонке

процедуру обмена строк можно взять:
http://delphibase.endimus.com/?action=viewfunc&topic=vclctrl&index=3

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var Acol,ARow:Integer;
begin
with StringGrid1 do begin
if (ssAlt in Shift)then begin
MouseToCell(X,Y,Acol,Arow);
if (Acol=0) and (Arow>=FixedRows) then begin
Tag:=ARow;
end else
Tag:=0;
end;
end;
end;

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Var Acol,ARow,i,j:Integer;
begin
with stringgrid1 do begin
MouseToCell(X,Y,Acol,Arow);
if (ssAlt in Shift) and (Tag>0) and (ACol=0)
and (ARow>=FixedRows) and (ARow<>Tag) then
SGExchangeRows(StringGrid1,Tag,ARow);
end;
end;


 
Ola   (2002-05-17 08:28) [4]

Спасибо!!!


 
Катерина ©   (2002-05-17 09:05) [5]

Надо в Options грида goRowMoving установить в TRUE. И мышкой в фикс. колонке можно перетаскивать. Толстая черта показывает новое положение строки в гриде.


 
MBo ©   (2002-05-17 09:12) [6]

;)
Век живи, век учись



Страницы: 1 вся ветка

Текущий архив: 2002.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
1-88455
Бульбаш
2002-05-17 16:45
2002.05.27
Смена клавиши табуляции


3-88328
RedKat
2002-04-29 18:10
2002.05.27
Создание DSN


1-88561
GenBr
2002-05-16 16:02
2002.05.27
Разработка компонентов


1-88475
Саша
2002-05-18 07:48
2002.05.27
Как определить запущена программа или нет?


4-88670
JIX
2002-03-26 14:21
2002.05.27
Цвета экрана