|
procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin
DoMoveListItem(TControl(Sender).Tag);
end;
procedure TMainForm.personslistKeyPress(Sender: TObject; var Key: Char);
begin
if key = '+' then DoMoveListItem(1);
if key = '-' then DoMoveListItem(-1);
end;
procedure TMainForm.DoMoveListItem(aKind: integer);
begin
with personslist do begin
if ((ItemIndex > 0) and (AKind = -1)) or
((ItemIndex < Pred(Count)) and (AKind= 1)) then
Items.Exchange(ItemIndex,ItemIndex+AKind);
end;
end;
SpeedButton1.Tag=-1 , SpeedButton1.Tag=1
SpeedButton1.OnClick=SpeedButton1Click;
SpeedButton2.OnClick=SpeedButton1Click;
Перемещение стрелками вверх/низ (перемещ. данных не разумно)
Перемещение данных клавишами +/-
|