30-01-2021, 04:09
|
 |
Registered User
|
|
Join Date: Nov 2020
Location: Near Mars
Posts: 93
Thanks: 89
Thanked 96 Times in 37 Posts
|
|
Hi Mr.BLACKFIRE69,
I'm very new to Delphi but I've done this in a different way. Check out the example. 
Quote:
function ButtonCreate(hParent :HWND; hLeft, hTop, hWidth, hHeight: Integer; title: PAnsiChar; titleclr, backcolor, forecolor: integer): longint;
procedure ButtonMouseEnter(Btn: longint; titleclr, backclr, foreclr: integer);
procedure ButtonMouseLeave(Btn: longint; titleclr, backclr, foreclr: integer);
procedure ButtonOnClick(Btn: longint; event: TNotifyEvent);
procedure ButtonDeInit;
|
Screenshots:
__________________
- All life is an experiment. The more experiments you make the better. -
|