dar forma a formulario

[jandj]

encontre este truco buscando por el foro.

Saludos. El truco es bastante sencillo, pero lo voy a explicar con pelos y señales. Para darle forma a un form, se puede usar fotografías con un color "especial" y darle forma. El color "especial" es TransparentColor del form, y la opción Transparent tiene que estar en True. Si pones que TransparentColor sea Rojo, y pones que el formulario sea de color rojo (y activas Transparent), no tendrás formulario. Entonces si cojes una fotografía, pintas un circulo azul, y al rededor de color rojo, pones TransparentColor=ClRed, pones la fotografía que ocupe todo el form, y quitas el borde (BorderStyle=BSNone) tendrás un form azul y redondo .


he encontrado un problema con este truco y es que agregue un checkbox al formulario con este codigo:

Código Delphi [-]
procedure TFrm_Login.CBCambiarClaveClick(Sender: TObject);
var
i: integer;
begin
if CBCambiarClave.checked= true then begin
for i:=358 to 595 do
height:=i;
exit;
end
else
if CBCambiarClave.checked = false then
for i:=595 downto 358 do
height:=i;
end;

el problema esta que hasta que no se termine el for el formulario no aparece y solo se ven los componentes! si pudiera alguno de ustedes ser tan amable y ayudarme a resolver este problemita, gracias por adelantado