Alguém pode me ajudar com o código abaixo? COmo eu faço pra enviar um
componente que acabei de criar? Leiam os comentários no código por
favor...
var
novaPraca : TScrollPraca;
novoBotao : TpanelPraca;
begin
contador := 0;
with dmAtena do
begin
QPracas.First;
while not QPracas.Eof do
begin
novaPraca := TScrollPraca.Create(panelProgramas); //onde
panelProgramas é um TPanel
novaPraca.Parent := panelProgramas;
novaPraca.praca := QPracas.fieldbyname('praca').AsString;
novaPraca.codPraca := QPracas.fieldbyname('codPraca').AsString;
novaPraca.Align := alTop;
novaPraca.Name := 'ScP_' + QPracas.fieldbyname
('codpraca').AsString;
//o problema é que eu não consigo passar como parâmetro o nome do
componente criado
//acima, para que o componente criado abaixo fique dentro dele.
novoBotao := TpanelPraca.Create(novaPraca.Name); // Não funciona
novoBotao.Parent := (novaPraca.Name); // Não funciona
novoBotao.Caption := '';
QPracas.Next;
end;
end;
--
<<<<< 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
