s3c

Ah sim, agora entendí. Se os TWinControl filhos forem redesenhados, GetWindowDC deve perder a referência deles, daí tem que alocar um novo HDC. Mas com o GetDC, acho que não porque ele não pega os controles.

Bom, que eu saiba com GetDC você pinta somente a área cliente excluindo os TWinControl(que possuem Handle). Se quiser pintar em cima deles, utilize GetWindowDC.

Estranho, no D6 e Turbo ele incrementa. Quanto essa última procedure algo, você está chamando ela em algum lugar ? porque se não chamar ele não gera código mesmo.

O que eu disse foi o oposto. o Sim foi para sua última pergunta. Botões ? que botões ? Esse FillRect é em toda área client do Form ?

Acho que é porque você disse que o computador travou.

É mesmo ?Então deixe somente a linha do Inc(i), coloque um brak-point lá e veja se ele não incrementa. Comigo no D6 e Turbo Delphi ele incrementa. Acho que nesses dois Delphis o compilador não sabe que está em loop infinito e talvez seja por isso que não dá nem um warning.

procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i := 0; While true do begin Inc(i); Button1.Caption := IntToStr(i); end; end;Veja se o caption do botão muda.

Fez o teste ?

Quais propriedades ? O que você consegue fazer com um Table que não consiga com um Query ? Não, só acho o Table um componente amarrado que não te dá as possibilidades que você teria com um Query.

Ele nem chega a incrementar y?Você tem certeza ? Acho que não; ele fica incrementando y continuamente. Coloque um break-point e veja. Outra coisa, se ele sabe que está em loop infinito, porque não é dada ao menos uma msg de warning ?

Mas se você já utiliza TQuery, porque quer voltar ao TTable ?

Help do Delphi: Então: While true do; para mim true seria o retorno booleano da avaliação de uma expressão que neste caso não existe.

Acho que sim porque GetDC aloca um HDC e deve manter o Rect da janela sob seu controle e para isso aloca recursos e é por isso que tem que ser dado ReleaseDC.

Para mim o While testaria o retorno de uma condição e como não há condição nenhuma fiquei pensando de onde ele tiraria esse true. Faria sentido se: While true = true; ou While false = false; aí sim você teria uma condição para teste.

Desculpe Thales mas não entendí. Minha dúvida é: While true do begin . . . end;É claro que é um loop infinito e deve ser utilizado um Break ou Exit para sair. Mas porque ele satisfaz a condição do While ? De onde vem esse true ?

Keybd_Event com o terceiro parâmetro <> KeyEventF_KeyUp simula o pressionamento da tecla informada no primeiro parâmetro. Nesse caso é como tivesse sido pressionada a tecla End no Edit.

Primeiro post:

Coloque no evento onEnter do Edit: Keybd_Event(VK_End, 0, 0, 0);

Ainda não entendo. O While testa uma condição e nesse caso ela não existe; então quer dizer que o default seria true ? Por via das dúvidas eu utilizo: While 0=0 do ...

Olá Progr'amador, comigo se colocar Software sem "\" ele falha no Reg.OpenKey.

Pessoal, neste código: begin While true do begin . . . end; end;Porque ele satisfaz a condição ? Que true é esse ?

Eu não entendí. Você quer que não apareça nada no Edit até que seja digitado "." ?Depois você quer que o outro Edit fique com a parte depois do "." ? Como assim ? Quando for digitado "." aquele Edit perderá o foco e não haverá mais parte após o "."

Experimente trocar: Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false); PorReg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);

Mas o componente TTable também é um TDataSet. Se você estiver atualizando, tente: if Table1.State <> dsEdit then Table1.Edit;

Acho que é a mesma coisa, mas particularmente para mim o mais correto seria declarar esse método na private, já que além de ser específico para cada Form, é executado antes do onCreate.