Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-07-2005
caceres_2005 caceres_2005 is offline
Registrado
 
Registrado: jul 2005
Posts: 5
Poder: 0
caceres_2005 Va por buen camino
Formularios Ovalados

Hola Amigos no se si me ouedan ayudar quisiera saber como
poder hacer formularios ovalados o redondos.

De Antemano Gracias...........
Responder Con Cita
  #2  
Antiguo 20-07-2005
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.040
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
tendrás que usar algún componente para ello (o hacerlo tú), creo que jvcl trae algo de eso, voy a echar un vistazo a ver si lo encuentro
Responder Con Cita
  #3  
Antiguo 20-07-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
Si dispones de delphi 6 o superior, puedes usar un TImage con un Bmp cargado, Pon el color del Form a verde (por ejemplo), despues usa las propiedades del formulario TransparentColorValue (a ese mismo color verde) , TransparentColor a True, con esto ya tienes una ventana con la forma del bmp.

No recuerdo si en delphi 5 tambien tienes esas propiedades (creo que no )

Si no tienes esas propiedades, busca por el foro CreateEllipticRgn

Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #4  
Antiguo 20-07-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 27
delphi.com.ar Va por buen camino
Te hice este ejemplito:
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    hRegion: HRGN;
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  hRegion := CreateEllipticRgn(0, 0, Width, Height);
  SetWindowRgn(Handle, hRegion, True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DeleteObject(hRegion);
end;

end.
¡¡Conste que dijiste ovalados o redondos!!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #5  
Antiguo 20-07-2005
caceres_2005 caceres_2005 is offline
Registrado
 
Registrado: jul 2005
Posts: 5
Poder: 0
caceres_2005 Va por buen camino
Gracias lo voy a probar

Gracias amigos
este foro se pasa

Gracias voy a probar el codigo......................
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 00:28:55.


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
Copyright 1996-2007 Club Delphi