So pra ilustrar mais um pouco, abram uma new application e colem esse
código:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure VBtClick( Sender : TObject );
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
VFr : TFrame;
VLb : TLabel;
VBt : TButton;
begin
VFr := TFrame.Create( SELF );
VFr.Parent := SELF;
VFr.Color := clRed;
VFr.Left := 20;
VFr.Top := 20;
VFr.Name := 'FRAMEZASSO';
VLb := TLabel.Create( VFr );
VLb.Parent := VFr;
VLb.Left := 8;
VLb.Top := 16;
VLb.Caption := 'Frame Loco';
VBt := TButton.Create( VFr );
VBt.Parent := VFr;
VBt.Left := 8;
VBt.Top := 32;
VBt.Caption := 'Clique Aqui';
VBt.OnClick := VBtClick;
VFr := TFrame.Create( SELF );
VFr.Parent := SELF;
VFr.Color := clBlue;
VFr.Left := 100;
VFr.Top := 100;
VFr.Name := 'FRAMEZASSO_2';
VLb := TLabel.Create( VFr );
VLb.Parent := VFr;
VLb.Left := 8;
VLb.Top := 16;
VLb.Caption := 'Frame Loco';
VBt := TButton.Create( VFr );
VBt.Parent := VFr;
VBt.Left := 8;
VBt.Top := 32;
VBt.Caption := 'Clique Aqui';
VBt.OnClick := VBtClick
end;
procedure TForm1.VBtClick(Sender: TObject);
begin
ShowMessage( 'Cliquei no Frame: ' + TButton( Sender ).Parent.Name )
end;
end.
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Vitor Redes
Enviada em: quarta-feira, 23 de abril de 2008 12:01
Para: delphi-br@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( VFr );
VLb.Parent := VFr;
VLb.Caption := 'Frame Loco'
end;
_____
De: HYPERLINK
"mailto:delphi-br%40yahoogrupos.com.br"[EMAIL PROTECTED]
[mailto:HYPERLINK
"mailto:delphi-br%40yahoogrupos.com.br"[EMAIL PROTECTED] Em
nome de Rubem Nascimento da Rocha
Enviada em: quarta-feira, 23 de abril de 2008 11:56
Para: HYPERLINK
"mailto:delphi-br%40yahoogrupos.com.br"[EMAIL PROTECTED]
Assunto: RE: [delphi-br] Frames do Delphi 6
Prioridade: Alta
Companheiro, tentei muito fazer isso, ou seja, criar um frame do zero em
tempo de execução pra usá-lo de forma a criar telas de manutenção de dados
dinâmicas. Não dá certo! Tem que ter pelo menos um frame adicionado em tempo
de projeto pra poder criá-lo em tempo de execução. E eu olhei o fonte do
TFrame e pelo que vi, realmente não tem como criar um TFrame do zero, sem
ter um frame já definido em tempo de projeto na aplicação! Se vc conseguiu
essa proeza, então publique aqui sua experiência para que todos na lista se
beneficiem.
Sds.
____________--________-_-_______-__-__
> To: HYPERLINK
"mailto:delphi--br%40yahoogrupos-.com.br"HYPERLINK
"mailto:delphi-br%40yahoogrup-os.com.br"[EMAIL PROTECTED]
> From: HYPERLINK
"mailto:alexandre_-rodrigues_-poa%40yahoo.-com.br"alexandre-_rodrigues--_poa
@yaho
o.-com.br
> Date: Wed, 23 Apr 2008 11:51:42 -0300
> Subject: Re: [delphi-br] Frames do Delphi 6
>
>
> O Rubem é possível sim criar Frames em tempo de execução assim como
> qualquer outro componente..--.
>
> Rubem Nascimento da Rocha escreveu:
>>
>>
>>
>> Modificar um frame em tempo de execução sim; criar um frame em tempo de
>> execução, não!
>>
>> Sds.
>>
>> ____________--________-_-_______-__-__
>>
>> To: HYPERLINK
"mailto:delphi--br%40yahoogrupos-.com.br"HYPERLINK
"mailto:delphi-br%40yahoogrup-os.com.br"[EMAIL PROTECTED]
>> From: HYPERLINK
"mailto:giovannycar-valho%40yahoo.-com.br"[EMAIL PROTECTED]
>> Date: Tue, 22 Apr 2008 16:51:37 +0000
>> Subject: [delphi-br] Frames do Delphi 6
>>
>> Boa tarde amigos,
>>
>> Estou criando uma aplicação e gostaria de utilizar Frames e a minha
>> dúvida é: É possivel modificar o frame conteudo de um frame em tempo
>> de execução? Pode ser via código, pois o projeto será Orientado a
>> Objetos e terei que criar várias classes mesmo.
>>
>> Obrigado,
>> Giovanny Carvalho
>> www.acmeinformatica--.com.br
>>
>> ____________--________-_-_______-__-______-___-_____-____-____-_____-_
>> Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de
>> relacionamentos com até 6,000 fotos!
>> HYPERLINK
"HYPERLINK
"http://www.amigosdomessenger.com.br"http://www.amigosdo-messenger.-com.br"H
YPERLINK
"http://www.amigosdo-messenger.-com.br"http://www.amigosdo--messenger.--com.
br
>>
>>
>
>
>
>
>
> ____________--________-_-_______-__-______-___-_____-____-____-___
> Yahoo! Mail - Sempre a melhor opção para você!
> Experimente já e veja as novidades.
> HYPERLINK
"HYPERLINK
"http://br.yahoo.com/mailbeta/tudonovo/"http://br.yahoo.-com/mailbeta/-tudon
ovo/"HYPERLINK
"http://br.yahoo.-com/mailbeta/-tudon"http://br.yahoo.--com/mailbeta/--tudon
ovo/
>
>
____________--________-_-_______-__-______-___-_____-____-____-_____-_
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
HYPERLINK "HYPERLINK
"http://video.msn.com/?mkt=pt-br"http://video.-msn.com/?-mkt=pt-br"HYPERLINK
"http://video.-msn.com/?-mkt=pt-br"http://video.--msn.com/-?-mkt=pt--br
No virus found in this incoming message.
Checked by AVG.
Version: 7.5.524 / Virus Database: 269.23.3/1391 - Release Date: 22/4/2008
08:15
No virus found in this outgoing message.
Checked by AVG.
Version: 7.5.524 / Virus Database: 269.23.3/1391 - Release Date: 22/4/2008
08:15
[As partes desta mensagem que não continham texto foram removidas]
No virus found in this incoming message.
Checked by AVG.
Version: 7.5.524 / Virus Database: 269.23.3/1391 - Release Date: 22/4/2008
08:15
No virus found in this outgoing message.
Checked by AVG.
Version: 7.5.524 / Virus Database: 269.23.3/1391 - Release Date: 22/4/2008
08:15
[As partes desta mensagem que não continham texto foram removidas]
