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

[Neftali [Germán.Estévez]]

Para estas cosas, yo recomiendo un programita llamado:
"Gabe's Odd Form Assistant v.15" (AÑADO: No lo he dicho, pero es gratuíto.)

Trabaja con regiones, pero es muy cómodo, ya que a partir de tu foto, generas una máscara (en negro):



Y con un par de click te genera una Unit, que junto con tu proyecto te permite hacer un show del formulario con el resultado esperado:



Un saludo.

[jandj]

gracias lo pruebo y luego te digo como me fue.