Arrais Júnior

Membros
  • Content Count

    117
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Arrais Júnior

Recent Profile Visitors

1200 profile views
  1. sei, eu tentei fazer com checkbox, no entanto, apesar de ter conseguido por em linhas, utilizando a propriedade WORDWRAP do CheckBox para setada em TRUE e com o cód. CheckBox1.Caption:='123' + #13 + '456'; só que é um problema para mim, já que eu vou ter que tirar as alternativas de um banco de dados... Eu estava pensando e acabei por botar 5 RadioButtons, sem caption e ao lado os DBMemo (onde será exibido a alternativa direto do banco de dados, porém, ainda não consegui pensar em uma maneira de associar o RadioButton1,2,3,4 e 5, ao Campo RESPOSTACORRETA que fica no banco de dados. Lembre-se que quando utilizei o RadioGroup você me ensinou a fazer a associação através desse cód. // RESPOSTA CORRETA if RadioGroup1.ItemIndex = strtoint(DBText1.Caption) then RadioGroup1.Color := $0080FF80 else RadioGroup1.Color := $0070A5FC; end; ... Você consegue visualizar uma possibilidade para esta minha dúvida??? Algum método para quando clicar em um botão ele ler o número que consta no campo RESPOSTACORRETA (DBText1) e então associar aos RadiosButtons, identificando o RadioButton1 como sendo o valor 1 do DBText1, o RadioButton2 como sendo o valor 2 do DBText1, e assim sucessivamente... obg e desculpa pela dor de cabeça! :) pensei em uma possibilidade meio que bizarra, mas que poderá funcionar...me ajuda a implementar... no onclick do RadioButton1 eu vou por algo que faça isso "se DBText1.caption contiver o valor 1 muda-se a cor do DBMemo1.text pára verde, caso contrário muda-se a cor do DBMemo1.text para vermelho" no onclick do RadioButton2 eu vou por algo que faça isso "se DBText1.caption contiver o valor 2 muda-se a cor do DBMemo2.text pára verde, caso contrário muda-se a cor do DBMemo2.text para vermelho" daria certo? só não sei implementar isso obg mais uma vez. pensei em uma possibilidade meio que bizarra, mas que poderá funcionar...me ajuda a implementar... no onclick do RadioButton1 eu vou por algo que faça isso "se DBText1.caption contiver o valor 1 muda-se a cor do DBMemo1.text pára verde, caso contrário muda-se a cor do DBMemo1.text para vermelho" no onclick do RadioButton2 eu vou por algo que faça isso "se DBText1.caption contiver o valor 2 muda-se a cor do DBMemo2.text pára verde, caso contrário muda-se a cor do DBMemo2.text para vermelho" daria certo? só não sei implementar isso obg mais uma vez. /////////////////////////////////////////////////////// vlws....eu fiz assim e deu certo // RESPOSTA CORRETA if DBText1.caption = ('1') then DBMemo2.Color := $0080FF80 else DBMemo2.Color := $0070A5FC; .... obg
  2. desculpe, apareceu um imprevisto aqui.... quando eu boto um ITEM muito grande, ele não justifica para caber dentro do radiogroup, como eu faço para que fique o texto dentro dele?
  3. obg jhonas, todas as dúvidas foram sanadas! abração.
  4. vlw jhonas, deu certíssimo aqui...não sei se você leu a ultima parte do post acima, porque eu tava editando quando você me respondeu... outra dúvida é... como eu faço para "resetar" o RadioGrup, pois quando eu boto para pegar mais valores de outras alternatavas, ele vai somando, 4,8,12,16, ... ..eu poderia botar para ele resetar em um botão para ficar pronto para receber mais alternativas. obg
  5. então...eu fiz aqui dessa maneira.. um botão para gerar perguntas e alternativas RadioGroup1.Items.Append('( A ) ' + DBMemo2.Text); RadioGroup1.Items.Append('( B ) ' + DBMemo3.Text); RadioGroup1.Items.Append('( C ) ' + DBMemo4.Text); RadioGroup1.Items.Append('( D ) ' + DBMemo5.Text); tou com dificuldades para fazer a resposta, exemplo, eu queria algo assim... onde no DBText1 seria o item da resposta correta, no entanto, não consigo fazer...dá erro. // RESPOSTA CORRETA if RadioGroup1.ItemIndex = (DBText1.Caption) then RadioGroup1.Color := $0080FF80 else RadioGroup1.Color := $0070A5FC; end; outra dúvida é... como eu faço para "resetar" o RadioGrup, pois quando eu boto para pegar mais valores de outras alternatavas, ele vai somando, 4,8,12,16, ... ..eu poderia botar para ele resetar em um botão para ficar pronto para receber mais alternativas. obg
  6. usei a imaginação e.... fiz um banco de dados onde consta os seguintes campos BDText1 (pergunta ) BDText2 (Item A ) BDText3 (Item B ) BDText4 (Item C ) BDText5 (Item D ) BDText6 (Item E ) BDText7 (Resposta Correta, indicada pelos numeros de 1 a 5) OBS: o DBText7 ficará INVISIVEL (contendo um número de 1 a 5, como já dito). Coloquei 5 RadioButtons RadioButton1 = Correspondente ao Item A RadioButton2 = Correspondente ao Item B RadioButton3 = Correspondente ao Item C RadioButton4 = Correspondente ao Item D RadioButton5 = Correspondente ao Item E ... agora vem o problema... eu queria que QUANDO marcasse qualquer RadioButton fizesse uma leitura do NÚMERO que consta no DBText7 e mudasse a cor do RadioButton correspondente para verde e os demais ficariam da cor vermelha. acho que essa maneira supre minhas necessidades =D vlws jhonas
  7. jhonas, me d uma luz aqui... hihihih tipo, eu tava usando o radiobutton, ai botava no onclick dele para mudar a cor do item certo para verde e as demais para vermelho... ok...assim dá certo ... mas...o problema disso é que eu teria que configurar todas as perguntas, respostas e tals, eu queria fazer um estilo que desse para por as perguntas e resposta em um banco de dados access e que tivesse alguma forma de ESPECIFICAR a resposta correta, para que quando a pessoa apertasse na correta ele corrigir... não sei como fazer isso.... não sei se existe um componente tipo o radiobutton para banco de dados... obg.
  8. boa madrugada, antes de tudo, sou iniciante em Delphi e estive pensando em criar uma aplicação para estudo. nesse aplicação seria feito um banco de dados em access e iria aparecer uma pergunta com algumas opções de resposta, gostaria de colocar aquele componente que só se pode marcar um (não lembro se e o checklist) e quando a pessoa marcasse, apareceria a confirmação da resposta certa ou errada. obg.
  9. vlws mais uma vez jhonas...estou usando Memo1.Lines.Text := Trim(Memo1.Lines.Text); vlws!
  10. olá, eu tou com um cod pra "justificar" um texto, porém, ele tá dando erro nessa linha ParaFormat :TParaFormat;...alguém poderia me dizer o que pode ser... procedure JustifyRichEdit(RichEdit :TRichEdit; AllText :Boolean); const TO_ADVANCEDTYPOGRAPHY = $1; EM_SETTYPOGRAPHYOPTIONS = (WM_USER + 202); EM_GETTYPOGRAPHYOPTIONS = (WM_USER + 203); var ParaFormat :TParaFormat; SelStart, SelLength :Integer; begin ParaFormat.cbSize := SizeOf(ParaFormat); if SendMessage(RichEdit.handle, EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY) = 1 then begin SelStart := RichEdit.SelStart; SelLength := RichEdit.SelLength; if AllText then RichEdit.SelectAll; ParaFormat.dwMask := PFM_ALIGNMENT; ParaFormat.wAlignment := PFA_JUSTIFY; SendMessage(RichEdit.handle, EM_SETPARAFORMAT, 0, LongInt(@ParaFormat)); // Restaura seleção caso tenhamos mudado para All RichEdit.SelStart := SelStart; RichEdit.SelLength := SelLength; end; end; e uso para aplicar o "justificar" JustifyRichEdiT(RichEdit1, False); alguém sabe se tah faltado algo???
  11. mais uma vez, obrigado jhonas....sempre de pronto para atender os noobs do delphi... =D obrigadao.. ficou assim o meu: richedit1.Lines.SavetoFile('salvos\' + LABEL20.Caption + ' - ' + Edit8.Text + ' - ' + StringReplace(DateToStr(Date), '/', '.', [rfReplaceAll]) + '.doc'); mais um coisinha que não estava prevista.... tipo..eu tenho um texto padrão em um richedit que é montado atraves de substituições...exemplo [[RICHEDIT]] CABEÇALHO* TEXTO* ASSINATURAS* sendo que o nome CABEÇALHO* é subistituido pelo o que for digitado em um memo1 a palavra TEXTO é substituida pelo o que for digitado em um memo2 a palavra assinatura é substituida pelo o que foi digitado em um richedit2 ...ao problema...o método de substituião tah legal..ta tudo beleza, só que eu queria DELETAR todas as linhas em branco que ficam no final do texto do memo1, memo2 e richedit2...porque se não fica uma distancia muito grande entre o CABEÇALHO*, TEXTO* e ASSINATURAS* não sei se ficou dificil de entender o que eu tou querendo dizer....caso tenha ficado complicado...eu explico mais detalhadamente e posto fotos... simplificando...eu queria um cod que deletasse toda linha vazia no final do texto...
  12. jhonas....muito obrigado mesmo...eu procurei saber como fazia mais não tava conseguindo...vlws uma dúvida...tou usando isso para salvar SaveDialog1.InitialDir := 'salvos'; if SaveDialog1.Execute then richedit1.Lines.SavetoFile(Edit2.Text + ' - ' + Edit8.Text); só que abre a caixa de diálogo perguntando o nome e tals...ai eu tenho que por um nome....acaba que saindo do padrão... não tem como eu apenas apertar no botão e salvar sem perguntar nada...sem perguntar a pasta...sem perguntar mais nomes....etc...???
  13. a respeito de salvar os dados do edit no txt... deu certo ...tudo beleza... porém, preciso implementar isso em um memo também....ok..tudo certo...o problema é que ele só salva e faz a leitura da primeira linha... var Line : string; num : integer; Arquivo : TextFile; begin // LER O CONTEUDO DO ARQUIVO DADOS.TXT num := 0; AssignFile(Arquivo, 'DADOS\CABECALHO.txt'); Reset(Arquivo); while not EOF(Arquivo) do begin num := num + 1; Readln(Arquivo, Line); if num = 1 then Memo1.Text := Line; end; CloseFile(Arquivo); end; sabe como fazer para que ele salve e leia toda as linhas?
  14. flavio...vlws ai...mais eu teria que ter esse formato SEIS (06)...necessariamente o formato NUMERO POR EXTENSO (NUMERO).. mais vlws a dica ai.. =D
  15. vlws jhonas... aproveitando o tópico... alguém pode me dar uma luz de como eu posso fazer tipo um maskedit neste formato: primeiro (01), dois (02), três (03).........e trinta e um (31)...sendo que eles vão corresponder ao dia do mês... exemplo...eu abro o programa e nesse Edit ou MaskEdit apareça automaticamente o dia do mês nesse formato ai que falei... uma luz jhonas =D vlws..