VPF::ListBox - Форум программистов

norov

Дата 6.4.2007, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 6.4.2007
Где: Россия, г. Тверь

Репутация: нет
Всего: нет

  пожалуйста помогите я начинающий в дельфи 7.
у меня два ListBox и один  ValueListEditor.
мне надо чтоб мышкой можно было перетащить в определенную строку:
~  с одного  ListBox можно было перетащить в другой ListBox
~  с ListBox можно было перетащить в ValueListEditor
если можно пож. код полностью напишите начиная с UNIT и до END.

я прочел DRKB3_Full там есть в VCL но у меня не получаеться. что где и как и куда втыкать. у меня и не ругаеться и ни чего делать не хочет.

заранее благодарен!

bartram

Дата 6.4.2007, 10:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29

глянь вот это

Добавлено через 47 секунд
что непонятно - спрашивай smile

Добавлено через 3 минуты и 18 секунд

Цитата(norov @ 6.4.2007, 12:28

)

у меня и не ругаеться и ни чего делать не хочет.

покажи код

--------------------

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

Snowy

Дата 6.4.2007, 10:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

http://forum.vingrad.ru/index.php?act=modu...amp;section=641

Цитата(norov @ 6.4.2007, 10:28

)

если можно пож. код полностью напишите начиная с UNIT и до END.

Помочь - поможем, объяснить - объясним.
Но делать за тебя... Тут уж звиняйте smile

norov

Дата 6.4.2007, 11:47 (ссылка)

(нет голосов)

Загрузка ...

я хотел для начала разобраться с Drag&Drop взял пример из DRKB:

Код


procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with (Sender as TListBox) do
   Items.Move(ItemIndex,ItemAtPos(Point(x,y),True));
end;


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

Поставил DragMode --> dmAutomatic и ни фига не работает

Добавлено @ 11:57
или вот еще полностью

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
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.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);  
   begin
      with (Sender as TListBox) do
      Items.Move(ItemIndex,ItemAtPos(Point(x,y),True)); 
   end;

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

end.

Это сообщение отредактировал(а) norov - 6.4.2007, 12:07

norov

Дата 6.4.2007, 12:17 (ссылка)

(нет голосов)

Загрузка ...

ну хотя бы дайте код от UNIT до END. любой элементарный готовый который хоть что-то куда то переносит
пожааааалуйста

Это сообщение отредактировал(а) norov - 6.4.2007, 12:19

norov

Дата 6.4.2007, 14:04 (ссылка)

(нет голосов)

Загрузка ...

вот еси кому-то надо:

Код


{ скидывает с ListBox2 в ListBox3 выбранную строку}
procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := (Sender=Source);
end;

procedure TForm1.ListBox3DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
(sender as TListBox).Items.Add((Source as TListBox).Items[(Source as
TListBox).itemIndex]);
end;

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

всё разобрался
всем спасибо за ответы smile

Это сообщение отредактировал(а) norov - 6.4.2007, 15:21

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »