Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Drang&Drop   Найти похожие ветки 

 
Sur ©   (2004-04-21 23:06) [0]

С меxанизмом Drang&Drop я никогда не работал.
Но сейчас передомной стоит такая задача:
я должен упорядoчить строки в компоненте TListBox (ручной),
xотья это помоему не совсем Drang&Drop, но все таки
возможно ли это сделать(полагаю да) и если да то
пожалуйста подскажите как.


 
Sur ©   (2004-04-21 23:06) [0]

С меxанизмом Drang&Drop я никогда не работал.
Но сейчас передомной стоит такая задача:
я должен упорядoчить строки в компоненте TListBox (ручной),
xотья это помоему не совсем Drang&Drop, но все таки
возможно ли это сделать(полагаю да) и если да то
пожалуйста подскажите как.


 
Gero ©   (2004-04-21 23:19) [1]


> С меxанизмом Drang&Drop я никогда не работал

Я тоже.
Если имеется ввиду Drag&Drop, то ListBox1.DragMode := dmAutomatic
OnDragOver, OnDragDrop + F1


 
Gero ©   (2004-04-21 23:19) [1]


> С меxанизмом Drang&Drop я никогда не работал

Я тоже.
Если имеется ввиду Drag&Drop, то ListBox1.DragMode := dmAutomatic
OnDragOver, OnDragDrop + F1


 
Игорь Шевченко ©   (2004-04-22 00:55) [2]

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);
 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.


 
Игорь Шевченко ©   (2004-04-22 00:55) [2]

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);
 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.


 
Miwa ©   (2004-04-22 01:10) [3]

А еще в разделе "Статьи" есть хорошая статья на эту тему.


 
Miwa ©   (2004-04-22 01:10) [3]

А еще в разделе "Статьи" есть хорошая статья на эту тему.



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

Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.07 c
6-1079679862
slgeo
2004-03-19 10:04
2004.05.09
Не возвращается количество полученных байт в блокирующисокетах???


1-1082972991
Tech
2004-04-26 13:49
2004.05.09
Рекурсивный поиск


14-1082459041
Dmitrij_K
2004-04-20 15:04
2004.05.09
Оконный глюк


3-1081939231
31512
2004-04-14 14:40
2004.05.09
TClientDataSet.ApplyUpdates(0) & TClientDataSet.Refresh


3-1081428440
Mishenka
2004-04-08 16:47
2004.05.09
Поле типа Memo?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский