Два вопроса по Listview

Тема в разделе "Delphi - Компоненты", создана пользователем Guest_Expeditor_*, 5 фев 2006.

Статус темы:
Закрыта.
  1. Guest_Expeditor_*

    Guest_Expeditor_* Гость

    У меня два вопроса по ListView.
    1. ListView при наведении курсора мыши для невмещающихся по длинне строк показывает hint'ы, но стоит только в свойстве CheckBoxes врубить true, как хинты куда-то пропадают, что делать ?
    2. Как в ListView перетаскивать итемы ?

    Помогите пожалуйста.
     
  2. Barmutik

    Barmutik Гость

    1. Это классический глюк ListView... только или самому показывать.. или использовать другой компонент..
    2. Хмм.. что стандартные функции Drag&Drop кто-то отменял ?
     
  3. Guest

    Guest Гость

    <!--QuoteBegin-Barmutik+5:02:2006, 10:54 -->
    <span class="vbquote">(Barmutik @ 5:02:2006, 10:54 )</span><!--QuoteEBegin-->2. Хмм.. что стандартные функции Drag&Drop кто-то отменял ?[/quote]
    В том-то и дело, что у меня не получается уж больно заморочено. Я имеею ввиду чтобы ListView не принимал строки из других компонент, а чтобы перетаскивать в самом ListView вверх-вниз, к примеру для ListBox я смог сделать, а вот в ListView не выходит.
     
  4. Barmutik

    Barmutik Гость

    Примеров по данному вопросу огромное множество в интернете и простейший поиск даст Вам то что вы ищите...
     
  5. Expeditor

    Expeditor Гость

    <!--QuoteBegin-Barmutik+6:02:2006, 08:31 -->
    <span class="vbquote">(Barmutik @ 6:02:2006, 08:31 )</span><!--QuoteEBegin-->Примеров по данному вопросу огромное множество в интернете и простейший поиск даст Вам то что вы ищите...
    [snapback]30174" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    Да уж сколько я не искал нету ничего, ну разве что пару примеров на VB попалось и всё.
     
  6. Barmutik

    Barmutik Гость

    Пример написан за 3 минуту .. ен обсессудьте если что криво... 10 элементов .. тянеш за элемент и они меняются местами ... если что не так то модифицируйте сами ...

    Код (Text):
    procedure TForm1.Button1Click(Sender: TObject);
    var
    I: Integer;
    Item: TListItem;
    begin
    for I := 0 to 10 do
    begin
     Item := ListView1.Items.Add;
     Item.Caption := 'Name ' + IntToStr(I);
    end;
    end;

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

    procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
    var
    TargetItem: TListItem;
    TempItem : TListItem;
    Begin
    with TListView(Sender) Do
    begin
     TempItem := Items.Add;
     TempItem.Assign(Selected);
     TargetItem := GetItemAt(X, Y);
     if (TargetItem <> nil) Then
     begin
      Selected.Assign(TargetItem);
      TargetItem.Assign(TempItem);
      TempItem.Delete;
     end
     else
      Selected.Delete;
    end;
    end;
     
  7. Expeditor

    Expeditor Гость

    Это то, что надо.
    Огромное спасибо!!!
     
  8. Barmutik

    Barmutik Гость

    Удачи!
     
Загрузка...
Похожие Темы - Два вопроса по
  1. XiNoID
    Ответов:
    6
    Просмотров:
    815
  2. Shm0N
    Ответов:
    1
    Просмотров:
    1.001
  3. alturgrey
    Ответов:
    3
    Просмотров:
    1.148
  4. lizkaliz
    Ответов:
    0
    Просмотров:
    1.133
  5. andruxai
    Ответов:
    2
    Просмотров:
    1.372
Статус темы:
Закрыта.

Поделиться этой страницей