Fiz um teste aqui...
procedure TForm1.Button1Click(Sender: TObject);
var
VFr : TFrame;
VLb : TLabel;
begin
VFr := TFrame.Create( SELF );
VFr.Parent := SELF;
VFr.Color := clRed;
VFr.Left := 20;
VFr.Top := 20;
VLb := TLabel.Create( VFr );
VLb.Parent :=
Fez o teste... mas funcionou?
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 23 Apr 2008 12:00:46 -0300
Subject: RES: [delphi-br] Frames do Delphi 6
Fiz um teste aqui...
procedure TForm1.Button1Click(Sender: TObject);
var
VFr
@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Rubem Nascimento da Rocha
Enviada em: quarta-feira, 23 de abril de 2008 12:06
Para: delphi-br@yahoogrupos.com.br
Assunto: RE: RES: [delphi-br] Frames do Delphi 6
Prioridade: Alta
Fez o teste... mas funcionou?
Sds
@yahoogrupos.com.br
Assunto: RES: [delphi-br] Frames do Delphi 6
Fiz um teste aqui...
procedure TForm1.Button1Click-(Sender: TObject);
var
VFr : TFrame;
VLb : TLabel;
begin
VFr := TFrame.Create( SELF );
VFr.Parent := SELF;
VFr.Color := clRed;
VFr.Left := 20;
VFr.Top := 20;
VLb := TLabel.Create
Fiz o mesmo teste aqui e também funcionou, ou seja, é possível sim criar
um Frame do Zero
Vitor Redes escreveu:
Fiz um teste aqui...
procedure TForm1.Button1Click(Sender: TObject);
var
VFr : TFrame;
VLb : TLabel;
begin
VFr := TFrame.Create( SELF );
VFr.Parent := SELF;
VFr.Color :=
, sempre!
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Wed, 23 Apr 2008 12:07:25 -0300
Subject: RES: [delphi-br] Frames do Delphi 6
So pra ilustrar mais um pouco, abram uma new application e colem esse
código:
unit Unit1;
interface
uses
6 matches
Mail list logo