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

Работа при срабатывании OnCustomDrawItem в своем компаненте   Найти похожие ветки 

← →
FHT   (2004-09-12 11:30) [0]

unit MyListView;

interface

uses
 Classes,Controls,ComCtrls,Messages,Commctrl,Windows,Sysutils;

type

 TMyListView = class(TListView)
 
 
 protected
{ Protected declarations }
function CustomDrawItem(Item: TListItem; State: TCustomDrawState;
Stage: TCustomDrawStage): Boolean;override;

 public
{ Public declarations }
 constructor Create(AOwner: TComponent); override;
 destructor Destroy; override;

end;

procedure Register;

implementation

constructor TMyListView.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
end;

destructor TMyListView.Destroy;
begin
 inherited Destroy;
end;

{Насколько я разбирался вот эта функция(ниже вопроса) срабатывает и вызывает событие
OnCustomDrawItem при прорисовки Items в ListView.
А вопрос такой:
почему она не срабатавает вот в этом компаненте, т.е. сигнал Beep не звучит или если поставить точку останова видно что вообще функция в родительском классе будто бы не отрабатывает.}

function TMyListView.CustomDrawItem(Item: TListItem; State: TCustomDrawState;
Stage: TCustomDrawStage): Boolean;
begin
    inherited CustomDrawItem(Item,State,Stage);//здесь точка останова
    Result:=True;
    Beep;
end;


procedure Register;
begin
 RegisterComponents("Standard", [TMyListView]);
end;

End.


← →
Семен Сорокин ©   (2004-09-12 14:54) [1]

OwnerDraw = true?


← →
FHT   (2004-09-13 04:49) [2]

Да True. Но функция не срабатывает.


← →
FHT   (2004-09-14 03:29) [3]

Что никто не поможет?


← →
Юрий Зотов ©   (2004-09-14 10:33) [4]

Не уверен, но может быть...

Посмотрите IsCustomDrawn. Согласно справке, "IsCustomDrawn returns true when the list view should generate an event". Получается, что если IsCustomDrawn вернет False (а он вернет False, если ни на одно событие пользовательнской отрисовки реально не назначен обработчик), то и событие генериться не будет. Соответственно, не будет вызываться и метод его диспетчеризации.


← →
FHT   (2004-09-15 03:51) [5]

>Юрий Зотов ©   (14.09.04 10:33) [4]
Спасибо. Да дело было именно в этом.



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

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



Память: 0.46 MB
Время: 0.023 c
11-1106206819
Solik
2005-01-20 10:40
2005.08.28
ComObj


14-1123249871
Jeer
2005-08-05 17:51
2005.08.28
Ни кто из нас так ни где хорошо не работал как в своем резюме


4-1121056430
Untermensch
2005-07-11 08:33
2005.08.28
Как заставить систему выйти диалапом в инет и обратно.


1-1123159429
Хрюндель
2005-08-04 16:43
2005.08.28
Памогите перевести такой код из Basic в Delfi


3-1121418159
vigo
2005-07-15 13:02
2005.08.28
Подключение к Oracle




   Наверх