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

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

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

HELP!!!!!!!!!!!!!!!!!!! [D6]

Ola © (2002-05-17 08:01:00)
Помогите, пожалуйста надо в заполненном гриде менять порядок строк (выделять строку и перетаскиватьна новое место).... заранее спасибо....

MBo (2002-05-17 09:12:00) [1]
;)
Век живи, век учись

Катерина (2002-05-17 09:05:00) [2]
Надо в Options грида goRowMoving установить в TRUE. И мышкой в фикс. колонке можно перетаскивать. Толстая черта показывает новое положение строки в гриде.

Ola (2002-05-17 08:28:00) [3]
Спасибо!!!

MBo (2002-05-17 08:25:00) [4]
Так можно обменивать строки при нажатом 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 (ARowTag) then
SGExchangeRows(StringGrid1,Tag,ARow);
end;
end;

Ola (2002-05-17 08:17:00) [5]
спасибочки

Song (2002-05-17 08:15:00) [6]
Технология Drag Drop Поищи здесь, про TListBox был пример, да наверняка и факе есть...

Наверх

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