Проблема такая. Есть ListView, есть кнопка, при нажатии на которую добавляется Item в ListView с пустым Caption, чтобы юзер ввел туда что-то. Если после ввода Caption пустой, то его надо удалить.
Я добавил в событие OnEdited проверку на пустой Caption. В принципе, работает, но! только когда юзер что-то написал и стер. Оно не срабатывает, если после добавления Item'а юзер ничего не пишет, а сразу нажимает Enter.
Как можно это исправить?

Обрабатывай OnKeyPress.

Dynamic
))) Блина, что-то я не догадался )
Спасибо, попробую!

Если редактирование закончится мышей, то не сработает.
Я бы послал сообщение на нажатие кнопошки, а потом на бэкспэйс.
Хотя, если посмотреть исходняки, то может быть получится просто установить флаг редактирования...

А про стандартные события OnEditing/OnEdited забыли?

s-mike Читай первый пост:

Цитата(AriX @ 23.5.2005, 10:38)

Я добавил в событие OnEdited проверку на пустой Caption. В принципе, работает, но! только когда юзер что-то написал и стер. Оно не срабатывает, если после добавления Item'а юзер ничего не пишет, а сразу нажимает Enter.

ЗЫ. Куда-то мое предыдущее сообщение подевалось ...

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 20:46

Вот работающий пример:

Код

type   TForm1 = class(TForm)     Button1: TButton;     ListView1: TListView;     procedure Button1Click(Sender: TObject);     procedure ListView1KeyUp(Sender: TObject; var Key: Word;       Shift: TShiftState);     procedure ListView1MouseUp(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);   private     procedure CheckSelected(ListView: TListView);   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var   Item: TListItem; begin   Item := ListView1.Items.Add;   ListView1.Selected := Item;   ListView1.Selected.EditCaption;   ListView1.SetFocus; end; procedure TForm1.CheckSelected(ListView: TListView); begin   if Assigned(ListView.Selected) and     (Length(ListView.Selected.Caption) = 0) then     ListView.DeleteSelected; end; procedure TForm1.ListView1KeyUp(Sender: TObject; var Key: Word;   Shift: TShiftState); begin   if Key in [VK_ESCAPE, VK_RETURN] then     CheckSelected(TListView(Sender)); end; procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin   CheckSelected(TListView(Sender)); end;

<Spawn>
А OnMouseUp разве сработает, если например нажать на другой контрол, т.е. ListView фокус потеряет. Наверное, надо еще и в OnExit проверку ставить.

Я вот думал, может сделать обработчик какого-то сообщения системного, что-нить типа CM_AFTEREDIT. Пытался найти в MSDN - ничего не выцепил, но толи у меня MSDN кривой какой, толи руки. Там по-моему было что-то про AfterLabelEdit - но по какому сообщению оно происходит - не ясно. Просто столько проверок, может как проще можно сделать?

Но все равно думаю так тоже будет работать.
Всем Спасибо! Дома проверим.

Это сообщение отредактировал(а) AriX - 24.5.2005, 09:41

Мое сообщение куда-то делось, поэтому повторю: может проще запрашивать текст при помощи inputquery() и создавать итем только при непустом вводе?? Столько проблем снимается...

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 20:48

Quadr0 Он имелл ввиду ситуацию завершения редактирования Caption-а, к которой OnExit тоже отностится, а так же и те события которые я описал.

Попробовал. Вроде OnMouseUp не работает. Т.е. создаю итем, ничего туда не пишу, щелкаю мышой на другой элемент - пустой не удаляется.
А остальное вроде работает.
Всем спасибо!!

Dynamic

Цитата

Мое сообщение куда-то делось, поэтому повторю: может проще запрашивать текст при помощи inputquery() и создавать итем только при непустом вводе?? Столько проблем снимается...

Я думаю, что так и придется делать. Не хочется правда - дико как-то неудобно чтоли .


Может все-таки есть еще способы?

Посидел-помучился, но наконец разобрался с этой проблемой.

Способ вставлять проверку в OnExit, OnMouseUp, OnKeyUp, OnSelectItem работает, но не всегда.
Во-первых, вместо OnMouseUp надо использовать OnMouseDown, не помню зачем, но так работает лучше.
Но тоже плохо - если, например, нажать на другой итем при вводе пустого, то событие не срабатывает.

Короче, чем вставлять кучу проверок, проще создать потомка от TListView и немного его переделать.
Разбирался долго, но врубился, что куда и откуда. MSDN не стоит, поэтому до всего пришлось додумываться методом тыка.

Вообщем, если это кому надо, вот код. Может и не лучший, но работающий :::

Код

unit sjListView; interface uses   SysUtils, Classes, Controls, ComCtrls, CommCtrl, Messages; type   TsjListView = class(TListView)   private     FOldCaption: string;     // Здесь идет обработка системных сообщений BeginLabelEdit и EndLabelEdit     procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;   end; procedure Register; implementation procedure Register; begin   RegisterComponents('sJ', [TsjListView]); end; { TsjListView } procedure TsjListView.CNNotify(var Message: TWMNotify); var   S: string;   TmpItem: TLVItem; begin   with Message do     case NMHdr^.code of       // В начале редактирования...       LVN_BEGINLABELEDIT: begin         inherited;         // Запоминаем caption         FOldCaption := ItemFocused.Caption;       end;       LVN_ENDLABELEDIT: begin         // В конце редактирования...         with PLVDispInfo(NMHdr)^ do begin           // Делаем копию item'а           TmpItem := item;           // Здесь самое хитрое           // В item.pszText записывается строка по такому принципу:           //   - если строка после редактирования осталась той же, то pszText = ''           //   - если она изменилась, то в pszText записывается новый caption           // Фишка в том, что если item.pszText = '', то если вызвать Edit(item)           // без проверки на пустой pszText, то caption очиститься           // Но ведь если caption был не пустой, нам не нужно его очищать!           // Для этого мы и запоминаем OldCaption           // Здесь идет проверка: если строка была не пуста, и она не изменилась,           // то TmpItem.pszText = старой надписи           if (item.pszText = '') and (FOldCaption <> '') then             TmpItem.pszText := PAnsiChar(FOldCaption);           // Здесь убрана проверка для того, чтобы вызвать OnEdited в любом случае,           // даже если строка не изменилась (в оригинальном коде, проверка стоит,           // поэтому OnEdited не вызывается, когда строка не поменялась           if TmpItem.IItem <> -1 then             Edit(TmpItem);         end;       end;       else         inherited;     end; end; end.

ЗЫ: Писал ночью, хотел спать, так что комментарии немного идиотские )