Извиняюсь
Код:
TRoundBtn = class (TImage)
private
fFace, fOver, fDown, fDisb: TBitmap;
fPath: ShortString;
fActive: boolean;
protected
procedure DoMouseOver(var Msg: TWMMouse); message WM_MOUSEMOVE;
procedure DoMouseLeft(var Msg: TWMMouse); message WM_MOUSELEAVE;
procedure DoMouseDown(var Msg: TWMMouse); message WM_LBUTTONDOWN;
procedure DoMouseUp(var Msg: TWMMouse); message WM_LBUTTONUP;
procedure SetActive(V: boolean);
procedure SetPath(V: ShortString);
public
constructor New(AOwner: TWinControl; ThePath: ShortString);
procedure Kill;
property Active: boolean read fActive write SetActive;
property Path: ShortString read fPath write SetPath;
end;
Графика кнопки загружается из res-файла. Кнопки различаются цветовой гаммой, которая указывается в свойстве Path (например, 'RBT_RED').