F�rum Como se cria uma enquete no dephi? #390553

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

Curtir t�pico

+ 0

Responder

Posts

16/11/2010

Leonardo Xavier

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;

Responder

Gostei + 0