LucAlucard

Olá a todos. Bom.. to com um pipino aqui que não consigo resolver nem com reza braba... Se vocês puderem me ajudar eu agradeceria muito =D Olha, eu estou criando os forms com a função Application.CreateForm do próprio Delphi... Porém.. no Windows 7 as janelas miniaturas (aquela que quando você para o mouse na barra de tarefas na janela minimizada ele aparece uma janela com o que tem naquela janela) não aparece. Só aparece a do Form que está com o AutoCreate, mas os outros que EU crio não aparecem.. O sistema funciona perfeitamente... Porém as janelas miniaturas não aparecem... Vocês podem me ajudar? Se souberem por favor me ajuudem T_T.. num consigo resolver isso nem a piau... De qualquer forma, vlw pela força =D.

A rotina a baixo funciona para Windows 7... ainda não conseguí fazer funcionar no Windows XP... Bom se você conseguir por favor compartilhe conosco do fórum pliss =D ... Encontrei uma solução gente... crie o seguinte junto com as procedures do Type: procedure ModalBegin(Sender:TObject); // Aqui você pode dar o nome que quiser.. eu escolhí [b]ModalBegin[/b] e... procedure ModalExit(Sender:TObject); // eu escolhí [b]ModalExit[/b] após isso crie as procedures... procedure TFrm1.ModalBegin(Sender: TObject); begin vModal := True; end; procedure TFrm1.ModalExit(Sender: TObject); begin vModal := False; end; Depois no coloque no formulário no OnCreate e no OnClose: e Crie uma variavel Privada do tipo Boolean chamada vModal public vModal : Boolean; { Public declarations } procedure TFrm1.FormCreate(Sender: TObject); begin Application.OnModalBegin := ModalBegin; end; procedure TFrm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Application.OnModalEnd := ModalExit; end; Como usar? Se a variavel vModal for = True então ele é ShowModal, caso contrário ele é Show. Um forte abraço gente, muito obrigado pela ajuda de todos! ^^

É uma boa ídeia mesmo.. eu tinha pensado em uma mais ou menos assim também... mas.. e não tem nem uma propriedade com essa função porém na hora da criação e não quando fechamos? E vlw pela ajuda Jhonas... me desculpa pelo que escrevi lá em cima... por favor..

Então... é que eu to prencisando fazer essa verificação do form ativo.. eu tava fazendo uns testes com o ModalResut só que eu tenho q jogar um valor nele primeiro. Pelo menos foi assim no teste que eu fiz.. mandei mostrar o modal result com um monte de show e showmodal alternando entre eles.. E sempre o resultado dava 0... Brigadão pela dica.. eu vi um tal de modal started e modallevel.. mas tenho q aprender a usar certinho isso...

Ok... Desculpa Jhonas.. Reconheço que minhas palavras foram um tanto "arrogantes..." Por favor me desculpa... É o desespero de tentar conseguir uma solução logo quando o chefe fica na sua orelha o tempo todo.. de qualquer forma pesso desculpas.... se quiser pode deletar o post.. ou o tópico... Vlw pela força de qualquer forma...

Preciso saber se a Form atual é show ou showModal. Por favor o mais rápido possível! Vlw

o DBLookupCombobox e o DBCombobox ficarão abertos se a tabela no qual estiverem linkados estiver aberta o Combobox e o DBCombobox ficarão abertos se houverem items abraço Mas eu posso ter deixado a tebela aberta e os itens eu posso ter deixado um por padrão selecionado... isso não seria uma forma de burlar a solução encontrada?

Alá pessoal tudo bem com vocês? Gente por favor to precisando de uma força de vocês.. Preciso saber se DBLookupCombobox / DBCombobox / Combobox ou outro desse tipo está aberto ou não... com os itens aparecendo.. Não consigo achar algum evento DropDown ou coisa assim... vou usar essa função dentro do KeyDown do formulário sendo que vou ter mais de um Combobox ou algo assim. To me matando aqui.. se vocês puderem me ajudar por favor eu agradeceria. Bom boa sorte pra todos nós programadores pascal xD

Huashuasaush Entendí.. Vou dar uma olhada no componente e acho q to pegando o geito de usar esses arquivos .res.. Da um trabalhinho mas vamos ver como fica. To pensando em fazer um programa q gera esse "instalador" automaticamente.. mas por enquanto que eu estou no trabalho não posso ver essas coisas =/... Mas minha máquina está chegando se tudo der Certo >.< Quando fazer o programa posto aqui como fiz (pro pessoal não se matar igual eu... e posto se conseguir fazer o programa logo depois do tutorial). Brigadão Douglas.

Douglas Brigadão pela ajuda mas antes que eu teste (minha máquina de casa quebrou então ficou um tanto complicado pra mim fazer testes..) você saberia apenas com o Delphi puro.. sem componentes de terceiros não é possível criar? Tinha ouvido falar de um tal de .Res... ou Resurce.. ainda não cosnegui entender ao certo. Mas você já ouviu falar?

Olá pessoal tudo bem com vocês assim como está comigo? Bom... hoje venho até vocês mais uma vez para poder perguntar o seguinte : Como criar um instalador de algum sistema no Delphi? Só que sem Inno Setup ou alguma coisa desse tipo... Eu simplesmente queria clicar no instalador e ele aparecer lá "Instalando.. favor aguarde alguns instantes" e no término da instalação ele escrever a mensagem falando que a instalação foi bem sucedida ou não.. Se não entenderam podem perguntar gente com certeza o que eu estou querendo fazer aqui outras pessoas já fizeram e/ou já quiseram fazer... Um forte abraço a todos e bons estudos!

Olá a todos... Gente por favor to precisando bastante de uma força de vocês de novo... Gostaria de saber se vocês sabem de algum jeito de capturar a letra do meu HD ativo... Por exemplo: Tenho o Windows 7 no C: e o Windows XP no D: os 2 usam HDs diferentes não.. pera.. vamo complicar um pouco mais.. os dois usam o mesmo HD só estão particionados com sistemas operacionais diferentes... Alguém sabe como conseguir saber em qual letra (C: , D:) eu posso instalar um programa? No meu caso preciso criar um programa instalavel no próprio Delphi mas preciso saber qual a letra do PC do cliente pra poder seguir a instalação (não.. pior que não posso permitir que ele escolha o diretório..) Vlw gente vlws pela força! Um forte abraço a todos!

Por exemplo... criei um arquivo com a extenção .dat. Porém esse o meu programa faz uma verificação se a versão do arquivo .dat do cliente é a mesma ou anterior a que está no servidor. Se ela for anterior ele vai fazer o download do arquivo .dat no servidor e manda-lo para a máquina do cliente atualizando assim o .dat Conseguiu entender?

Bom dia mais uma vez a todos do fórum. Hoje gostaria novamente da ajuda de vocês para uma outra dúvida. Alguém aqui poderia me dizer como conseguir adicionar a versão em um arquivo? Ou se não souberem.. ao menos conseguir adicionar a versão em um arquivo .dat? ( que seria o meu caso..) Só conseguí até agora pegar as informações do meu .exe (ou seja o que eu criei no próprio Delphi) mas dos arquivos externos até agora nada.. se poderem me ajudar ^^. Vlw gente abração! ^^

To quase conseguindo gente... só que preciso fazer funcionar com forms já criados.. alguém me ajuda? o código ségue a baixo Primeiramente insira um Edit e um Botão e depois analize o código a baixo: ;D unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var I : Integer; Form : array[0..10] of TForm; begin for I := 0 to StrToInt(Edit1.Text) - 1 do begin Form[I] := Tform.Create(nil); Application := TApplication.Create(Self); // Application.Create(Form[I]); Form[I].Caption := 'Form nº '+IntToStr(I); Form[I].TransparentColor := True; Form[I].Show; end; end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then Button1.Click; end; end.

também não funciona.. alguém tem alguma idéia d como fazer as telas aparecerem no ALT+ TAT Como na imagem a baixo só q supondo que cada janela aberta seja um dos forms no DELPHI Conseuram entender o que eu queria fazer?? Alguém pode me ajudar?

Oi gente tudo bem com vocês? Estão aproveitando bastante as férias escolares? Bom espero que sim ^^ Hoje venho até vocês do Fórum MAIS UMA VEZ para pedir NOVAMENTE a ajuda de vocês.. Seguinte... Uso Windows 7 no trabalho e lá apertando Alt+Tab as janelas que se abrem no Delphi são exibidas! Porém no Windows XP elas não são exibidas por exemplo... Form.Show; O form q apareceria iria aparecer também no Alt+Tab porém não é o que acontece no Windows XP.. Alguém tem alguma idéia de como faze-lo aparecer?

Cara você pode me explicar o seu 1º código? procedure TForm1.Button1Click(Sender: TObject); var sr: TSearchRec; FileAttrs: Integer; begin StringGrid1.RowCount := 1; if CheckBox1.Checked then FileAttrs := faReadOnly else FileAttrs := 0; if CheckBox2.Checked then FileAttrs := FileAttrs + faHidden; if CheckBox3.Checked then FileAttrs := FileAttrs + faSysFile; if CheckBox4.Checked then FileAttrs := FileAttrs + faVolumeID; if CheckBox5.Checked then FileAttrs := FileAttrs + faDirectory; if CheckBox6.Checked then FileAttrs := FileAttrs + faArchive; if CheckBox7.Checked then FileAttrs := FileAttrs + faAnyFile; if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then begin with StringGrid1 do begin if (sr.Attr and FileAttrs) = sr.Attr then begin Cells[1,RowCount-1] := sr.Name; Cells[2,RowCount-1] := IntToStr(sr.Size); end; while FindNext(sr) = 0 do begin if (sr.Attr and FileAttrs) = sr.Attr then begin RowCount := RowCount + 1; Cells[1, RowCount-1] := sr.Name; Cells[2, RowCount-1] := IntToStr(sr.Size); end; end; FindClose(sr); end; end; end; Porque ta lotado de check box e eu não sei ao certo oque eles estão qurendo fazer... Porq eu fiz da forma do seu 3º exemplo... funcionou perfeitamente.. Porém me lançaram uma pergunta "E se eu já estiver fazendo o filtro dessa tabela o que eu faço?" e minha rotina não iria servir pra isso.. se você puder tentar me explicar essa rotina pra mim tentar ver se consigo adapta-la pro componentes ADO eu agradeceria muito. Vlw Jhonas vlws mesmo, mas se puder me ajudar de novo...

Não existe um locate Next ou alguma coisa desse tipo? Sem querer abusar da bondad ^^'...

então se ele estiver ordenado ele vai fazer isso automaticamente? mas e se ele não tiver ordenado não vai funcionar?

Fez oque eu precisava mas acho q seria melhor mudar o nome do tópico não é não? Porqe ele usa um tal de WriteComponentResFile para Salvar e ReadComponentResFile para ler. Resolveu o problema quue eu tinha vlw mesmo Jhonas

Por favor.. alguém poderia me explicar para que serve a função FileLoad do componenet ImageList?

Por favor... alguém?? alguém pd me ajudar??

Então Jhonas, mas eu queria fazer isso em tempo de execução. Carregar o .PNL em tempo de execução dentro do TLMDImageList. Você saberia como me ajudar? Vlw pela força e ajuda abraço!

Bom dia a todos! Gostaria de saber se alguém já chegou a usar o arquivo TLMDPNGImageList. Se já chegaram ótimo! Preciso da ajuda de vocês e muuito! Eu queria usar arquivos .PNG no Delphi 2010. E notei que este cara (TLMDPNGImageList) tem um arquivo onde ele grava TODOS os .PNGs que você escolheu para usar no sistema em um arquivo chamado .PNL (provavelmente para backup ou algo assim). OK! Oque eu gostaria de fazer é: Carregar o componente TLMDPNGImageList com os .PNGs do que estão no arquivos do .PNL em tempo de execução do programa (rum-time). Des de já agradeço e pesso que por favor caso tenham dúvidas por favor postem que tentarei ser o mais claro possível! Agradeço a atenção. Um forte abraço a todos!