Paulo Nobre

Vivendo&Aprendendo, entendi o que você falou: Usando algo semelhante ao que você mostrou anteriormente poderia expandir para direita. Mas, repare o seguinte: digitei uma frase, o form está com width 30 por exemplo, dou enter o form continua com o mesmo comprimento(até porque preciso ler o que já está escrito), quando na segunda linha começoa escrever o form vai aumentar mais ainda sem necessidade. Deu para entender. Além disso estou como seguinte problema, que não consigo solucionar de jeito nenhum: Para escrever o texto tenho que usar um Memo(o label não serve), porém o caption do form não pode aparecer e tenho que poder arrastá-lo ao clicar nele. Aí alguém diria tem um código para isto(o tal de H: HNDW ... e ...se H<>......veja abaixo). procedure WMNCHitTest(var Msg: TMessage); message WM_NCHitTest; procedure TForm1.WMNCHitTest(var Msg: TMessage); begin if GetAsyncKeyState(VK_LBUTTON) < 0 then Msg.Result := HTCAPTION else Msg.Result := HTCLIENT; end; Mas este código não funciona com um Memo, pois sempre que abro o form(com o edit nele ocupando toda o form- alcliente=true)o form já entra com o Memo em foco, ou seja o cursor piscando. Um post-it funciona assim:Quando você manda criar um ele já aparece com o cursor piscando para ser editado. Continuo na estaca zero.

Prezado Vivendo&Aprendendo, mas no caso da digitação como seria,já que a fonte pode ser escolhida pelo usuário. No caso do exemplo seria para mudar de linha,correto? #13 é o enter náo? Preciso de algum componente que iria se expandindo na medida que fosse digitando,independentemente do tamanho da fonte. Obrigado mesmo assim.

Estudando o delphi estou tentando fazer um mini-mini programa simulando um post-it, destes que já existem milhares por aí. (por exemplo o ATNotes, freeware excelente , que já está na versão 9) Preciso do seguinte: Ao clicar num botão, que apareça uma folha amarela(a cor nãoé relevante aqui-coloquei só para lembrar o que é um post-it) no desktop. Esta folha deverá ter dimensões mínimas, praticamente aparecendo apenas o cursor piscando e na medida que a pessoa for digitando o texto vá aparecendo,inclusive mudando de linha quando for dado enter. Gostaria de ajuda para o seguinte: Com um form acho que isto nãoé possível(mudar de dimensão ao digitar), ou é? Funcionaria com um label dentro do form(com a propriedade allcliente=true)? Isto porque não sei se o label mudando de forma fará o form mudar também.(estou semo delphi aqui,por isto não testei e pergunto) Alguém já tentou fazer um? Alguém pode me ajudar?

Muito obrigado a vocês, prezados moderadores: Kikonanet e Progr'amador. abraços

Bom Dia Prezados Colegas Usando a função shellexecute da api do windows... ShellExecute(handle,'open','mailto: email@provedor.com.br,nil,nil,SW_SHOW) mandamos um email para email@provedor.com.br. Perguntas(Minhas dúvidas): Como nesta função podemos incluir o assunto? Se tenho um txt na pasta C:\Meus Documentos, como faço para mandá-lo em anexo? Grato pela juda!

Valeu Kiko, Pelo nome deve ser isto mesmo! Obrigado.

Alguém poderia me ajudar lembrando qual é a função para saber se um determinado executável se encontra num determinado diretório. Por exemplo preciso saber se o executável charmap.exe se encontra no diretório c:\Windows. A idéia seria para caso sim habilitar um menu. Obrigado antecipadamente.

Deu tudo certo s3c. Acho que agora aprendi um pouco sobre canvas. Inclusive por analogia, aproveitei e testei o alinhamento vertical, muito fácil de deduzir a partir do seu código de alinhamento horizontal. Em relação a primeira coluna realmente é melhor não apresentar os nomes com as letras na fonte por conta do que você falou. Muito Obrigado. Abs

s3c, tentei mas não consegui, acho que não tenho muita experiencioa com o objeto canvas. Estou tentando duas coisas no stringGrid e não consigo: Primeira: As células do título, são só duas(0,0) e (0,1), gostaria que ficassem centralizadas e as outra no padrão ou seja a esquerda. Sei centralizar usando o ondrawcell. O problema é que ou fica tudo centralizado ou tudo à esquerda. É possível colocar só as duas primeiras centralizadas eas outras a esquerda. TEntei usar um if mas não deu certo Fiz: if stringrid1.cel(i,I) com um for de 0 a 1 para as duas primeiras com o código par centralizar, mas ele centraliza tudo segunda: tenho apenas duas colunas Na primeira o nome de todas as fontes do sitema. faço o numero de limhas igual ao numero de fontes usanfo screen.fonts.count. O que não consigo é colocar na primeira coluna o nome escrito usando a fonte correspondente e na segunda coluna um texto qualquer escrito usando a fonte que está na coluna da esquerda. Por exemplo na segunda linha primeira coluna aparece o nome ARIAL(gosataria que arial aparecesse escrito com a fonte arial) e na columa a direita de arial aparecesse um texto qualquer escrito em arial. Isto para cada linha com cada fonte coorespondente. DEu para entender? Os dois problemas tem algo em comum precisam de formatação diferente para cada célula. Isto é possível num stringgrid? Não estpou conseguindo usar o objeto canvas como voce falou

Tem razão s3c, estava na minha cara. Obrigado!

O código abaixo foi fornecido pelo s3c para ler todas as strings que se encontram no run do registro var i:Integer; Reg:TRegistry; SL:TStringList; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_LOCAL_MACHINE; if not Reg.OpenKey('\Software\Microsoft\...\Run', false) then Exit; SL := TStringList.Create; Reg.GetValueNames(SL); for i := 0 to SL.Count-1 do Memo1.Lines.Add(Reg.ReadString(SL[i])); // coloque um TMemo SL.Free; Reg.Free; end; No memo aparecem todos os dados, que neste cso dizem a localização do programa que está sendo inicializado com o windows. Agora, como posso ler os nomes que estão associados a estes endereços, ou seja, o valor da primeira coluna?

Olá s3c, Você quer dizer, criar vários caixas de diálogos personalizadas e fazer chamadas a elas?

Olá, s3c Valeu pela dica vou tentar.

Prezado Edinei, Obrigado por sua resposta. No caso em que você falou alteraria também os outros componentes do programa, tipo, formulários, janela etc... Neste caso não seria bom. t+ Paulo Nobre

Existe alguma maneira de alterar as caixas de diálogo padrão do windows, aquelas usadas no delphi para question, information etc... As mudanças seriam tipo cor, ter barra de título ou não etc... Acredito que seja dificil, pois nunca vi ninguém falando sobre isto em nenhum lugar. No site do Lloyd Dickinson,aquele que possui o help de 850 dicas, é disponibilizado um componente que faz isso. Porém não entendi como se usa,além de não ser freeware. O site original dele(do componente) é http://dade2000.altervista.org Alguém conhece um freeware?

Alguém poderia me ensinar como escrever um determinado texto com todas as fontes instaladas num determinado computador. A idéia seria a seguinte: Uma caixa de texto onde o usuário escreveria uma palavra ou um texto. Um botão, que ao ser clicado listaria num grid, no lado esquerdo o nome de todas as fontes e do lado direito o texto correspondente escrito na fonte que aparece no lado esquerdo. Listar as fontes talvez seja fácil usando o objeto screen, mas e a outra parte?

Olá, s3c Sensacional esta sua idéia, que servirá não só para este exemplo, mas para inúmeros outros. Muito obrigado!

Olá,s3c O componente é um TImage.

Olá, Graymalkin Valeu pela força. Ao invés de pedir ao usuário para fazer CTRL + C, pedirei para clicar na figura e depois fazer CTRL + V onde quiser colar a figura. Neste caso coloco o seu código no ONCLICK da Image1. O CTRL + C é porque o usuário está mais acostumado com este comando para copiar. Abraços

Prezados Colegas A um tempo atrás estava querendo colar figuras num dbImage e o colega s3c forneceu o seguinte código: uses ClipBoard; procedure TForm1.DBImage1KeyPress(Sender: TObject; var Key: Char); begin if (Key = #22) and Clipboard.HasFormat(CF_PICTURE) then begin DBImage1.Picture.Assign(Clipboard); DBImage1.Stretch := true; DBImage1.Refresh; end; end; Obs: O picture será um TBitmap; se quiser modificá-lo p/ Jpeg(menor espaço), também é possível. Atualmente tenho um programa que apresenta uma figura num Image1 e gostaria de que o usuário ao clicar na imagem e em seguida fizesse CTRL + C mandasse a figura (existem bmp e jpeg) para o clipboard para que com CTRL + V ele pudesse copiar, por exemplo no word. Alguém poderia me dizer como fazer isto. Tentei adaptar o código, mas não consegui.

Valeu s3c, Era exatamente isto que eu queria saber e aprender. Obrigado

Olá s3c, Entendi perfeitamente. Então,no meu caso tem que ser desta forma, pois nem sempre terei o foco,até porque, uso a tecla de atalho para fazer aparecer um ícone que não está ativo. Já havia funcionado,mas queria saber como fazia com o shift. Obrigado

Olá Progr'amador, estou no trabalho e sem o delphi. Você poderia me dizer se esse código funciona para programas que estão rodando no tray? Este comando seria usado para fazer aparecer o ícone no tray.(Ele estaria oculto: rxlibtray.active:= false) Consegui fazer isso com o código apresentado pelo s3c para CTRL + Letra, mas gostaria de adaptar para CTRL + SHIFT + Letra(arroba por exemplo). Por isso insisti naquele caminho, pois quando você postou sua resposta, já estava testando em cima da resposta dada por ele para o colega que iniciou o tópico. De qualquer forma vou tentar colocar seu código, mas se você souber me passa o código para adaptar o outro jeito. A propósito qual seria a diferença de um código para o outro? Se o seu é muito mais fácil, para que existe o outro? Em alguma situação só poderíamos usar o outro? Você e o s3c poderiam esclarecer isto? Obrigado.

Todos sabem que existem n programas (n tendendo a infinito) que mostram em alguma parte dele(quando o programa não é só isso),quais são os programas que estão na inicialização do windows(run). Um dia deste fiquei pensando e não consegui a resposta para a seguinte pergunta: Qual seria a idéia(comando ou código) para fazer o DELPHI percorrer toda a chave RUN e fornecer estes programas. Pergunto isto, pois você pode ler através de reg.readstring('Alguma coisa), mas se você já sabe que vai mandar ler o "Alguma coisa". Mas, se não sei o que existe na chave run, vou mandar ler o quê? Alguém sabe?

Neste tópico o s3c nos mostrou como criar as teclas de atalho para comandos. Os exemplos dados foram para o caso de usar CTRL + A e CTRL + X. E caso eu quisesse CTRL + SHIFT + A ou CTRL + SHIFT + @, onde o código hexadecimal de arroba é 40? Onde eu deveria fazer a alteração no código ecomo?