Nao consegui fazer isso, olha meu codigo:

var
  Form1: TForm1;botao :tbutton;
/////////
begin
form1.Parent:= botao;
botao := TButton.Create(form1);

botao.Width:=99;
botao.Height:=99;
botao.Top:=99;
botao.Left:=99;
botao.Show;
end;



Até ++!
Fabiano
----- Original Message ----- 
From: "jrjuniore" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, November 03, 2005 1:19 PM
Subject: RES: [delphi-br] Criar Botoes e Shapes em tempo de Execucao


Falta a propriedade parent.

Parent := TWinControl

-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Fabiano A. C.
Enviada em: quinta-feira, 3 de novembro de 2005 11:05
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Criar Botoes e Shapes em tempo de Execucao

Pessoal,  como faço pra criar Shapes e Botoes em tempo de execucao?

Pois tentei criar com o comando:
var botao1 : tbutton;
begin
botao1 := tbutton.create(form1);
botao1.show;

Ele cria o botao na memória porém nao aparece.


Até +!

Fabiano



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos












_______________________________________________________
Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!
http://br.acesso.yahoo.com/



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos









-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

 


Responder a