Membuat Komponen Flat

Membuat Komponen Flat.
Author:Pilipusw@yahoo.com

Berikut adalah source code cara Membuat Komponen Flat.

//procedure untuk mengubah komponen jadi flat
procedure Tform1.Flatten(theControl:TWinControl);
var
dwStyle:Longint;
begin
dwStyle:=GetWindowLong(theControl.handle,GWL_STYLE)
or BS_FLAT;
SetWindowLong(theControl.handle,GWL_STYLE,dwStyle);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//komponen yang akan diubah menjadi flat

Flatten(Button1);
end;