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

Вниз

Каким образом в ListBox-e можно менять местами item-ы   Найти похожие ветки 

 
KIG_S ©   (2002-06-10 13:10) [0]

Каким образом в ListBox-e можно менять местами item
Например как в winamp-e.
Зарание Блогодарен!!!!


 
Игорь Шевченко ©   (2002-06-10 13:14) [1]

unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
procedure ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
procedure ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
ListBox1.BeginDrag({not (Button = mbLeft)}false);
end;

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source = ListBox1 then
with ListBox1,ListBox1.Items do
Move(ItemIndex, ItemAtPos(Point(X, Y), True));
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source = ListBox1;
end;

end.



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

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

Наверх




Память: 0.46 MB
Время: 0.014 c
3-64931
BigMel
2002-05-27 11:57
2002.06.20
Подскажите, как в DbGrid обращаться к конкретным рядам?


1-65074
garry
2002-06-10 14:08
2002.06.20
Как в строку добавить символ абзаца?


1-65071
Ivan Voronov
2002-06-10 13:11
2002.06.20
Просмотр содержимого архива


14-65243
Igorek
2002-05-15 12:36
2002.06.20
Кому в каких условиях лучше работается?


3-64940
Ptr
2002-05-27 13:34
2002.06.20
SQL запрос