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:
Código:
procedure TForm1.FormCreate(Sender: TObject); |
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.
|
Cita:
Cerrar: Application.Terminate; Minimizar: Application.Minimize; Maximizar: (No me acuerdo :D) Espero que le sirva ;) |
¿Qué quieres decir con usar mis propios botones?.
|
Cita:
·······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 |
Cita:
Para controlar la Non Client Area, tendrás que controlor los siguientes eventos:
Talvez el siguiente ejemplo te puede ayudar http://www.bobpowell.net/NonClient2.aspx. Así te puedes dar una idea de lo que necesitas. Saludos! |
La franja horaria es GMT +2. Ahora son las 17:42:18. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi