Советы по Delphi. Версия 1.4.3 от 1.1.2001

private
 FOnChange : TNotifyEvent;
 FLastSel : integer;
 procedure Click; override;
protected
 procedure Change; Virtual;
published
 property OnChange : TNotifyEvent read FOnChange write FOnChange;
public
 constructor create(AOwner : TComponent); override;
End;

Procedure Register;

IMPLEMENTATION

procedure TCngListBox.Change;
begin
 FLastSel := ItemIndex;
 if assigned(FOnChange) then FOnChange(self);
end;

procedure TCngListBox.Click;
begin
 inherited Click;
 if FLastSel <> ItemIndex then Change;
end;

constructor TCngListBox.Create;
begin
 Inherited Create(AOwner);
 FLastSel := –1;
end;

procedure Register;
begin
 RegisterComponents('FreeWare',[TCngListBox]);
end;
END.

MainManu

Как рисовать картинки в пунктах меню (через OwnerDraw)?

Nomadic советует:

Смотри пример:

unit DN_Win;

interface

uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls,

type TDNForm = class(TForm)
 MainMenu1: TMainMenu;
 cm_MainExit: TMenuItem;
 procedure FormCreate(Sender: TObject);
 procedure cm_MainExitClick(Sender: TObject);
private
 { Private declarations }
public
 { Public declarations }
 BM:TBitmap;
 Procedure WMDrawItem(var Msg:TWMDrawItem); message wm_DrawItem;
 Procedure WMMeasureItem(var Msg:TWMMeasureItem); message wm_MeasureItem;
end;

var DNForm : TDNForm;

implementation

{$R *.DFM}

var Comm, yMenu : word;

procedure TDNForm.FormCreate(Sender: TObject);
begin
{картинку в меню}
 yMenu:=GetSystemMetrics(SM_CYMENU);
 comm:=cm_MainExit.Command;
 ModifyMenu(MainMenu1.Handle, 0, mf_ByPosition or mf_OwnerDraw, comm, 'Go');
end;{TDNForm.FormCreate}

procedure TDNForm.cm_MainExitClick(Sender: TObject);
begin
 DNForm.Close;
end;{TDNForm.cmExitClick}

{для прорисовки меню}
Procedure TDNForm.WMMeasureItem(var Msg:TWMMeasureItem);
Begin
 with Msg.MeasureItemStruct^ do begin
 if ItemID=comm then begin
 ItemWidth:=yMenu;
 Itemheight:=yMenu;
 end;
 end;
End;{WMMeasureItem}
{}
Procedure TDNForm.WMDrawItem(var Msg:TWMDrawItem);
var
 MemDC:hDC;
 BM:hBitMap;
 mtd:longint;
Begin
 with Msg.DrawItemStruct^ do begin
 if ItemID=comm then begin
 BM:=LoadBitMap(hInstance,'dver');
 MemDC:=CreateCompatibleDC(hDC); {hDC входит в структуру TDrawItemStruct}
 SelectObject(MemDC,BM);
 {rcItem входит в структуру TDrawItemStruct}
 if ItemState=ods_Selected then mtd:=NotSrcCopy
 else mtd:=SrcCopy;