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

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

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

Вопрос задал: 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 Комментарий к оценке: Вообще супер

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

ElektrinO (статус: Посетитель), 24 августа 2008, 14:37 [#1]: Простите но я сам не русский по этому плоха пишу на русском ! СПС вам вы меня правильно поняли

Вадим К (статус: Академик), 24 августа 2008, 16:43 [#2]: Ну я тоже "не русский" (я украинец). И русский не есть моим родным языком. Но ведь это мне не мешает писать на нем. А вообще то замечание было не по поводу граматики, а по поводу неясности мысли. Сам вопрос похож просто на поток мыслеформ. А это от языка мало зависит. Галочка "подтверждения прочтения" - вселенское зло.

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

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