Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 839

/ вопрос открыт /

Приветствую, уважаемые эксперты!
Как можно сделать так :
например я создал ListView и там поставил 2 item потом я в ListView поменял DragMode:=dmAutomatic! я хочу тут сделать так! я беру 1 итем и бросаю на 2 ! надо как то сделать так чтобы он помешал 2 итема! например у 1вого итема caption:='1' а 2го caption:='2'! а когда я бросаю первою итем на 2 ! он помешал их и в 2го итема caption был равен на 3! как можно сделать так ! за ране СПС!

ElektrinO Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: ElektrinO (статус: Посетитель)
Вопрос отправлен: 24 августа 2008, 11:32
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, ElektrinO!
Ну и написан же вопрос... читал раза три, пока понял, что же надо. надеюсь разобрался правильно. Надо для ListView'а оформить два события. В нижеприведённом коде их названия видны да и код комментирован.

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  //Во избежания ошибки
  if ListView1.DropTarget = nil then
    exit;
  //зачем складывать само с собой, если потом удалим?
  if ListView1.DropTarget = ListView1.Selected then
    exit;
  //собственно процедура сложения
  ListView1.DropTarget.Caption := Inttostr(StrToInt(ListView1.DropTarget.Caption) +
StrToInt(ListView1.Selected.Caption));
  //удалим перетаскиваемый элемент
  ListView1.Items[ListView1.Selected.Index].Delete;
  //Сделаем переупорядочивания. Это надо только в режимах vsSmallIcon и vsIcon
  ListView1.Arrange(arDefault);
end;
 
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Sender = Source;
end;

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 24 августа 2008, 14:14
Оценка за ответ: 5

Комментарий к оценке: Вообще супер

Мини-форум вопроса

Всего сообщений: 3; последнее сообщение — 24 августа 2008, 16:48; участников в обсуждении: 2.
ElektrinO

ElektrinO (статус: Посетитель), 24 августа 2008, 14:37 [#1]:

Простите но я сам не русский по этому плоха пишу на русском ! СПС вам вы меня правильно поняли
Вадим К

Вадим К (статус: Академик), 24 августа 2008, 16:43 [#2]:

Ну я тоже "не русский" (я украинец). И русский не есть моим родным языком. Но ведь это мне не мешает писать на нем.
А вообще то замечание было не по поводу граматики, а по поводу неясности мысли. Сам вопрос похож просто на поток мыслеформ. А это от языка мало зависит.
Галочка "подтверждения прочтения" - вселенское зло.
ElektrinO

ElektrinO (статус: Посетитель), 24 августа 2008, 16:48 [#3]:

Понятно !

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 24 июня 2017, 04:43
Выполнено за 0.03 сек.
Рейтинг@Mail.ru