Forms con las esquinas redondeadas
 

Hola a todos, he buscado en los foros y en páginas de componentes alguno para redondear los bordes de un form, pero no he encontrado nada. Si he visto varios códigos que pintan el form de varias formas o lo hacen tranparente pero si eso también sirve para hacer lo que pido no tengo ni idea como se hace.

Agradecería cualquier información sobre el tema, gracias por vuestra ayuda.

Aquí tienes un ejemplo:

Un Saludo.

Ok gracias, aunque tendré que ver como se ajustan ahora los botones de cerrar, etc porque se los come al hacer el circulo, pero de todas formas gracias por tú ayuda.

Si quiere puede usar sus propios botones:

Cerrar:
Application.Terminate;
Minimizar:
Application.Minimize;
Maximizar:
(No me acuerdo :D)


Espero que le sirva ;)

¿Qué quieres decir con usar mis propios botones?.

·······Pues, en vez de usar la X y el _ de la barra de título de windows (cerrar, maximizar/restaurar y minimizar) usar los suyos propios, es decir, un botón, con el caption X (por ejemplo) para cerrar, otro con el caption _ para minimizar..., en caso de que las esquinas redondeadas no te dejen ver los de windows.

·······No se si me he explicado bien, pero ahí esta

Ya te he entendido, pero entonces se debe imitar también la caption del form además de la diferencia de color con el resto del form, creo que eso supone bastante más trabajo.

Sí dispones de algún ejemplo tuyo te estaría muy agradecido que me lo enviaras, gracias.

Gente, quise usar el código para redondear las puntas del formulario pero mi compilador no reconoce los siguientes identificadores

HRGN
CreateRoundRectRgn
SetWindowRgn

en qué librería están?

saludos :)

Tienes que utilizar la unit Windows

Saludos!

gracias por tu ayuda, ahora me surgió otro inconveniente:

tipos incompatibles -> HWND and QOpenScrollViewH

en esta función

SetWindowRgn(Handle,f,True);


donde f: HRGN;

saludos :)

No se de dónde has sacado el QOpenScrollViewH...
¿Porqué no nos pasas tu código?

Saludos!

el codigo la saque de la sección de trucos, donde muestran cómo crear formularios con diferentes formas:


procedure TForm1.FormCreate(Sender: TObject);
var
hRgn: THandle;
begin
// Crear una zona eliptica
hRgn := CreateEllipticRgn(10, 10, Width - 20, Height - 20);
// poner la nueva region
SetWindowRgn(Handle, hRgn, False);
end;


cuando compilo me dice el error que te envié en el mensaje anterior

saludos :)

El tema es que lo estas haciendo en un QForm... Tienes que tener mucho cuidado en usar WinApis aplicaciones CLX!

Saludos!

Buenas , he usado este truco para redondear un formulario que tengo pero entonces pierdo el botón de "CERRAR" que me recomendais crearlo manualmente con un button ?

saludos

Lo más fácil es que lo crees con un botón. De lo contrario tendrías que controlar lo que en la Windows API se conoce como "Non Client Area". Haciendo lo último obtendrías un trabajo más armónico ya que podrás pintar y decorar el título de las ventanas a cómo más te guste y haga juego con tu aplicación.

Para controlar la Non Client Area, tendrás que controlor los siguientes eventos:

• WM_NCHITTEST
• WM_NCLBUTTONDOWN
• WM_NCLBUTTONUP
• WM_NCMOUSEMOVE
• WM_NCPAINT, entre otros.

Talvez el siguiente ejemplo te puede ayudar http://www.bobpowell.net/NonClient2.aspx. Así te puedes dar una idea de lo que necesitas.

Saludos!