use this for Round edges of form
[code]
function CreateRoundRectRgn(p1, p2, p3, p4, p5, p6: Integer): THandle; external 'CreateRoundRectRgn@gdi32 stdcall';
function SetWindowRgn(hWnd: HWND; hRgn: LongWord; bRedraw: BOOL): Integer; external '
[email protected] stdcall';
procedure InitializeWizard;
var
RegisterWizardform : HWND;
begin
with TLabel.Create(WizardForm) do begin
Parent:=WizardForm;
SetBounds(25,364,0,0);
Font.Style := [fsBold];
AutoSize:=true;
Font.Size := 12;
Font.Color:={#FontColor};
Font.Name:='{#FontName}';
Caption:=('Coded by JRD');
end;
RegisterWizardform:= CreateRoundRectRgn(0, 0, WizardForm.Width, WizardForm.Height, 5, 5);
SetWindowRgn(WizardForm.Handle, RegisterWizardform, True);
end;
and change the 5,5 value to anything u want ,like if u change it to 250,250 it will make the form round