Вниз
Скачать: CL | DM;

ListView.OnChanging   Найти похожие ветки 

 
XShura ©   (2002-08-05 16:50) [0]

Всем привет! Возникла по моему туповатая проблема с событием ListView.OnChanging ... Пишу такой код :

procedure Tform1.LVChanging(Sender: TObject; Item: TListItem;
Change: TItemChange; var AllowChange: Boolean);
begin
AllowChange:=false;
end;

Вопрос : почему это событие возникает иногда 2 или 3 раза для одного и тоже Item ??


 
Ученик ©   (2002-08-05 17:06) [1]

Свойств у TListItem несколько


 
XShura ©   (2002-08-05 17:09) [2]

А можно поподробнее?


 
Ученик ©   (2002-08-05 17:14) [3]

В ComCtrls.pas

procedure TCustomListView.CNNotify(var Message: TWMNotify);
...
LVN_ITEMCHANGING:
with PNMListView(NMHdr)^ do
if not CanChange(Items[iItem], uChanged) then Result := 1;
...

function TCustomListView.CanChange(Item: TListItem; Change: Integer): Boolean;
var
ItemChange: TItemChange;
begin
Result := True;
case Change of
LVIF_TEXT: ItemChange := ctText;
LVIF_IMAGE: ItemChange := ctImage;
LVIF_STATE: ItemChange := ctState;
else
Exit;
end;
if Assigned(FOnChanging) then
FOnChanging(Self, Item, ItemChange, Result);
end;



LVN_ITEMCHANGING


Notifies a list view control"s parent window that an item is changing. This notification message is sent in the form of a WM_NOTIFY message.

LVN_ITEMCHANGING
pnmv = (LPNMLISTVIEW) lParam;

Parameters
pnmv
Address of an NMLISTVIEW structure that identifies the item and specifies which of its attributes are changing.
Return Values
Returns TRUE to prevent the change, or FALSE to allow the change.

Remarks
If the list view control has the LVS_OWNERDATA style, LVN_ITEMCHANGING notifications are not sent.

Requirements
Windows NT/2000: Requires Windows NT 3.51 or later
Windows 95/98: Requires Windows 95 or later
Windows CE: Requires version 1.0 or later.
Header: Declared in commctrl.h.


 
Ученик ©   (2002-08-05 17:17) [4]

А если проще, то Change: ItemChange у них разный


 
XShura ©   (2002-08-05 17:20) [5]

хм... когда я писал что событие возникает 2 или 3 раза, я имел ввиду что Change было всегда ctState ...



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c
3-60547
Alinka
2002-07-30 18:48
2002.08.19
Мастера, помогите!!


1-60667
MikeFW
2002-08-05 17:19
2002.08.19
Как перевести все символы в верхний регистр?


4-60909
INCOGNITO
2002-06-16 18:38
2002.08.19
Путь до моего приложения


4-60907
Dim_NoReg
2002-06-13 13:20
2002.08.19
Непобедимый маус


4-60888
Vladimir Prokofiev
2002-06-11 11:34
2002.08.19
Генерация AVI-файла в процессе работы Delphi-приложения




   Наверх