procedure TFrmTeoricas.FormCreate(Sender: TObject);
begin
// Criando total de alunos
for CA :=1 to 15 do
for CAC := 1 to 50 do // criando colunas
begin
CodAlu := TEdit.Create(nil);
CodAlu.Name := 'Alu';
CodAlu.Left := -4+(CAC*92);
CodAlu.Height := 25;
CodAlu.Width := 60;
CodAlu.AutoSize := false;
CodAlu.Font.Size := 10;
CodAlu.Text := '';
CodAlu.top := -25+(CA*26);
CodAlu.Parent := Grade;
CodAlu.Cursor := crCross;
end;
// Criando totais de materias
for MA :=1 to 15 do
for MAC := 1 to 50 do // criando colunas de materias
begin
Materias := TEdit.Create(nil);
Materias.Name := 'Mat';
Materias.Left := 58+(MAC*92);
Materias.Height := 25;
Materias.Width := 25;
Materias.AutoSize := false;
Materias.Font.Size := 10;
Materias.Text := '';
Materias.top := -25+(MA*26);
Materias.Parent := Grade;
end;
end;
e eu tenho que consultar de cada coluna e linha de edit quais alunos estão marcados:
procedure TFrmTeoricas.ConsultaAgendamento;
begin
ContaM := 1;
With DtmIza.QryIza do
begin
close;
sql.Clear;
sql.Add('Select * From Teoricas where Instrutor = :Inst and Data = :Dat');
ParamByName('Inst').AsString := txtcodins.Text;
ParamByName('Dat').AsDate := txtData.date;
open;
end;
while ( not dtmIza.qryiza.EOF ) do
begin
if DtmIza.QryIza.FieldByName('Bloqueado').AsString = 'S' then
begin
TEdit( FindComponent( 'Alu' + IntToStr( ContaM ) ) ).Text := '**********';
end
else
begin
TEdit( FindComponent( 'Alu' + IntToStr( ContaM ) ) ).Text := DtmIza.QryIza.FieldByName('Aluno').asstring;
TEdit( FindComponent( 'Mat' + IntToStr( ContaM ) ) ).Text := DtmIza.QryIza.FieldByName('Materia').asstring;
end;
{else
begin
TEdit( FindComponent( 'Alu' + IntToStr( ContaM ) ) ).Text := '';
end; }
contaM:=contaM+1;
dtmIza.qryiza.Next;
end;
end;
Mas não está mostrando nada, pois fiz isso com os edits criados e deu certo mas criando em tempo de execução não aparece nada e tem que ser em tempo de execuçao todo essa construção da tabela
Pergunta
robinhocne
Estou montando uma tabela em tempo de execução:
e eu tenho que consultar de cada coluna e linha de edit quais alunos estão marcados:Mas não está mostrando nada, pois fiz isso com os edits criados e deu certo mas criando em tempo de execução não aparece nada e tem que ser em tempo de execuçao todo essa construção da tabela
O que eu estou fazendo de errado ?
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.