Como se cria uma enquete no dephi?

Delphi

16/11/2010

Olá amigos bom dia, estou desenvolvendo uma aplicação, na qual terei uma enquete, então segui os passos do Joomla, criei uma enquete em duas tabelas, a tabela título e a tabela resposta, mas como farei isso para trazer no delphi, por exemplo, como criarei os componentes checkbox dinamicamente no form, baseado na quantidade de respostas que tenho na enquete, se alguem tiver um exemplo agradeceria de coração.
Um exemplo abaixo.

tbpergunta
pergunta_id                   integer 
pergunta_nome             varchar        50

tbresposta
respota_id                     integer
resposta_resposta        varchar        50
resposta_idpergunta     integer


e no form apareceria o título da pergunta e os checkbox baseado nas respostas.

Obrigado a todos pela ajuda.
Júnior Sistemas

Júnior Sistemas

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

16/11/2010

Tente assim:



//em Private você ira declarar o seguinte:
//procedure CheckBox(objetoOwner: TWinControl; rotulo: string; coluna, altura: integer);
//---------------------------------------------------------------------------------------//


procedure TForm1.CheckBox(objetoOwner: TWinControl; rotulo: string; coluna, altura: integer);
var
	check: TCheckBox;
begin
check:=TCheckBox.Create(objetoOwner);
check.Parent:=objetoOwner;
check.Caption:=rotulo;
check.Top:=(altura * 17);
check.Width:=175;
check.Left:=(coluna * 160) - 145;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
	x, y: integer;
	owner: TWinControl;
begin
owner:=GroupBox(PageControl(Self));
for y:=1 to 3 do
	for x:=1 to 11 do //aqui você ira colocar o RecordCount do seu ADO
		CheckBox(owner,'Check Box (Col: ' + IntToStr(y) + ', Linha: ' + IntToStr(x) + ')',y,x);
end;

GOSTEI 0
POSTAR