كيف يمكن تزيين Button في دلفي7

[Agmcz]

يمكنك استعمال Speedbutton الموجود في التبويب Additional كما اخبرك الأخ PLANSHARP.
أو إستعمال نسخ دلفي الحديثة.
كما يمكنك البحث عن مكونات تدعم هذه الخاصية.
أيضا

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, XPMan;

type
  TButton = class(StdCtrls.TButton)
  protected
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    XPManifest1: TXPManifest;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TButton.WMPaint(var Message: TWMPaint);
begin
  inherited;
  DrawIconEx(GetDC(Handle), 5, (Height div 2) - 8, Application.Icon.Handle, 16, 16, 0, 0, DI_NORMAL);
end;

end.