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]

Спасибо!!!

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

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

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