Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Formularios Ovalados (https://www.clubdelphi.com/foros/showthread.php?t=23525)

caceres_2005 20-07-2005 01:46:35

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

De Antemano Gracias...........

Casimiro Notevi 20-07-2005 08:40:59

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

Lepe 20-07-2005 10:23:04

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

delphi.com.ar 20-07-2005 14:31:56

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!! :D

caceres_2005 20-07-2005 23:49:54

Gracias lo voy a probar
 
Gracias amigos
este foro se pasa

Gracias voy a probar el codigo......................


La franja horaria es GMT +2. Ahora son las 23:51:16.

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