okaz! meybe someone will find this usefull =]
http://img169.imageshack.us/img169/7662/26014153.png
here is sample how use it + dcu
have 2 buttons Close and Accept and TMuForm
http://rapidshare.com/files/267687050/MuForm.rar.html
Code:unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs ,MuForm, MuBtn;
type
TForm1 = class(TMuForm)
procedure FormCreate(Sender: TObject);
private
Test :TGMuBtnType;
Procedure MuBtnClick (Sender: TObject);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//==============================================================================
{ MuBtnTypes}
{bsClose & bsAccept}
//==============================================================================
procedure TForm1.FormCreate(Sender: TObject);
var
x,y:integer;
begin
Test:=TGMuBtnType.Create(Owner);
x:=Form1.Height;
y:=Form1.Width;
with Test do
begin
Parent :=(Self);
Top :=x-35;
Left :=y-y+5;
BtnStyle :=bsClose;//bsAccept
OnCLick :=MuBtnClick;
end;
end;
//==============================================================================
{for newbies}
//==============================================================================
procedure TForm1.MuBtnClick(Sender: TObject);
begin
close;
end;
end.
