Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
6-60792
~GT~
2002-06-04 23:06
2002.08.19
Подскажите альтернативы TWebBrowser


8-60756
_ncux_
2002-04-12 15:51
2002.08.19
Книга по OpenGL из Internet а


1-60741
Rasa
2002-08-06 02:59
2002.08.19
Полупрозрачность...


3-60487
Корсар2
2002-07-29 09:48
2002.08.19
Св-ва TIBbTrasaction


14-60849
OlegatoR
2002-07-25 10:11
2002.08.19
На наш астероид летит 6500 километровая планета





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский