Wizar de Forms

Question

Ae Galera estou precisando saber como posso criar edits e labels em tempo de execucao como o wizard de form do delphi faz, preciso criar posicionados e tal!!Abra�os. 8)...

Gurc · Answer

Colega, voc� vai fazer exatamente o que o Delphi faz pra voc� quando usa um TResourceStream e um TReader para ler os componentes de um formul�rio incorporado como recurso em um execut�vel.
Deixa eu te passar um conceitos legais. O Owner � o cara respons�vel, principalmente, pela destrui��o dos objetos, � o dono deles e tem total responsabilidade. O parent � o container em que ele est� inserido (pense em um panel, tabcontrol...)...
Certo, esses componentes, ser�o criados e configuraremos seu Owner e seu Parent. Vejamos:

(...)
with TEdit.Create(Self) do //J� configura o owner
begin
  Parent := Self; //Configura o parent, pode ser qualquer TWinControl
  Left := 100;
  Top := 50;
  Text := �Hello World!�;
end;
(...)

Assim voc� cria um edit. Esperimente colocar qualquer componente. Depois de feito isso crie um forme e tente cri�-lo e configurar seu parent para um panel, por exemplo. � bacana! Voc� ter� um Form dentro de um panel! :wink: Voc� pode explorar isso para melhorar seus projetos.
Qualquer d�vida estamos a�!

Gustavo Royer Chaurais

Pedrojp · Answer

Gustavo Realmente ficou legal so me surgiu uma duvida, como posso acessar por exemplo o conteudo deste edit uma vez que em fonte ele nao esta criado e nao consigo digitar o codigo:
Ex:
procedure TForm1.Button1Click(Sender: TObject);
begin
with TEdit.Create(Self) do //J� configura o owner
begin
Parent := Self; //Configura o parent, pode ser qualquer TWinControl
Left := 100;
Top := 50;
Name:=�Edit1�;
Text := �Hello World!�;
end;
with TLabel.Create(Self) do //J� configura o owner
begin
Parent := Self; //Configura o parent, pode ser qualquer TWinControl
Left := 100;
Top := 35;
Caption := �Menssagem�;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.text:=�teste�; //Aqui � onde nao esta rodando tem alguma ideia??
end;
end.

Gurc · Answer

[quote:bed3ad7b1c=�pedrojp�]Gustavo Realmente ficou legal so me surgiu uma duvida, como posso acessar por exemplo o conteudo deste edit uma vez que em fonte ele nao esta criado e nao consigo digitar o codigo:[/quote:bed3ad7b1c]Legal, boa pergunta. Voc� tem que armazenar esse Edit em uma vari�vel do tipo TEdit. � isso que o Delphi faz pra voc�. Ele cria o componente e o armazena em uma vari�vel com o nome igual a propriedade Name do mesmo. Tente declarar uma vari�vel na classe do seu form e criar o componente da seguinte maneira.Em vez de...[code:1:bed3ad7b1c]with TEdit.Create(Self) do[/code:1:bed3ad7b1c]Tente usar...[code:1:bed3ad7b1c]FEdit1 := TEdit.Create(Self);FEdit1.Parent := Self;FEdit1.Left := 100;FEdit1.Topo := 100;[/code:1:bed3ad7b1c]Acho que � isso... as vari�veis que o Delphi cria para os componentes na sua classe de formul�rio, na verdade, fazem parte da se��o published, embora n�o apare�am em se��o nenhuma. Um software bem orientado a objetos seria implementado colocando-se essas na se��o private da classe.Isso � tudo!Qualquer d�vida � s� perguntar.Gustavo Royer Chaurais...

F�rum Wizar de Forms #258060