Douglas Soares

:ninja: :ninja: :ninja:

Bom dia... gostaria de bloquear determinadas pastas via programação ou por arquivo .bat mesmo, mas está meio complicado... não quero que ninguém consiga deleta-las... tem jeito? Puxa... dia do meu niver hoje e ngm me ajuda....

Olá pessoal... estava instalando meus componentes atuais do Delphi 7, no meu Delphi 2010.... tenho que criar packages e adicionar um a um e instalar... porem antes que eu soubesse desse esquema... eu fui adicionar um componente de forma errada e agora não consigo consertar nem reinstalando... já apaguei todas pastas q conheço e mesmo assim nada..... é um componente chamado TrayIcon, eu peguei e cliquei em Component > New VCL Component... dps selecionei o que eu queria que no caso era o TTrayIcon, dps dei next, deixei como estava, e aparece Palette page, tava additional, eu deixei... dai agora ele aparece la mas eu queria remover ele de lá....... não sai de jeito nenhum.... alguém tem ideia de como eu faço pra tira-lo de lá?

Veja esses links: http://www.planetadelphi.com.br/dica/6619/...sua-finalizacao http://forum.devmedia.com.br/viewtopic.php...923f06c33f88f27 Abraços

nossa agora que vi o form percebi que não é esse que eu queria :wacko: , eu to querendo alterar aquele form do windows de configuração de impressora... Se não tiver jeito beleza.... Abraços

Hum.... acho que já sei. eheheh, como eu disse antes você deve ter uma tabela cidades e talvez uma outra chamada Estados, tente abri-las ao entrar nesse cadastro, exemplo: cdsCidades.open; cdsEstados.open; Abraços

Você precisa criar um ClientDataSet, uma SQLQuery, um DataSetProvider, e use o DataSouce que você já tem, pois com Table somente creio que não se pode salvar.... faça isso e depois teste o código! Abraços

oi? não entendi? ehehe

hum... num me chama de folgado, é o que eu sou mas não chama ayhuhashuas, me passa ai o dfm o dcp, o resto das tranquera desse PrintSetup.pas, eheheh, e como eu faço pra usar isso? é só trocar a referencia la no botão Configurações de Impressora para esse form q me passou? Obrigado

Humm... me confundi ehehe, vai no Event OnKeyDown do seu DBGrid e coloca isso: if Key = VK_RETURN then begin meuClientDataSet.ApplyUpdates(0); end; Abraços

Ops... então.... a opção DataSource e DataField, é onde você grava no banco... por exemplo, se você tem uma tabela Cidades, com os campos Codigo, nome e estado, então na opção ListSource do componente você deverá colocar o dtsCidades( Tabela Cidades ), em KeyField, o campo Codigo, e ListField o campo Nome.... Pois no DataField, você grava um numero, exemplo: 5, na tabela cidades o codigo 5 é Mogi Mirim.... deu pra entender? Tente isso... Abraços

Poste o código que você colocou no Enter que você faz ele ficar editável, assim eu posso tentar implementar... Abraços

Sabe me dizer em que local do PC eu encontro o mesmo para edição? Desculpa a burrice, eheheh Obrigado

eehehe, não achei o pas, eu tenho sim, mas não sei o nome, pode me informar? Obrigado

alguém sabe como começar ou alguns exemplos com fontes?? Obrigado

Nas propriedades do DBLookupComboBox, cheque a Opção DataSouce, e em seguida a opção Datafield pra ver se estão preenchidas corretamente. Abraços

10 Reais... ehehehe to aqui pra isso :rolleyes:

Você deve ter um field Quantidade, pois se agrupar teria que acrescentar + 1 na quantidade... então faça assim: Coloque isso no Onclick de um botão... altere perante suas necessidades: procedure TForm1.Button1Click(Sender: TObject); begin if ClientDataSet1.Locate('CODIGO', Edit1.Text, []) then // Edit.text é o edit que você coloca o codigo do pedido, exemplo: codigo 1 é frango a passarinho, 2 é peixe... begin ClientDataSet1.Edit; ClientDataSet1QUANTIDADE.Value := ClientDataSet1QUANTIDADE.Value + StrToInt(Edit2.Text); ClientDataSet1.Post; end else begin ClientDataSet1.Append; ClientDataSet1CODIGO.Value := StrToInt(Edit1.Text); // edit1 codigo do produto ClientDataSet1DESCRICAO.Text := Edit3.Text; // edit3 descricão do produto ClientDataSet1QUANTIDADE.Value := StrToInt(Edit2.Text); //edit2 quantidade... ClientDataSet1.Post; end; end; Espero que tenha ajudado... Abraços

Tente assim: var inputelement: HTMLInputImage; begin if Assigned(inputelement) then begin if inputelement.Name = 'submit' then begin inputelement.Click; end; end; end; Abraços

Não achei... você não teria o código para eu salvar a pagina atual em PDF pelo menos? como você percebeu, adicionei um botão no quickrep para salvar a pagina atual em JPG e em BMP.... até ai foi facil, só falta os outros formatos :angry: Abraços

Opa, facil, eheheh: Adicione um botão no seu form e coloque isso: procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin for i := 0 to RichEdit1.Lines.Count - 1 do begin if RichEdit1.Lines.Strings[i] = 'teste' then ListBox1.Items.Add(RichEdit1.Lines.Strings[i]) end; end; Abraços

Bom dia, estava em um relatório qualquer e resolvi clicar em Print Setup, como tinha 6 paginas eu resolvi colocar para imprimir, pagina 2 de 6, então eu dou ok e mando imprimir, ele impri somente as 2 paginas, que é o correto, porem se a qualquer momente eu clico em Print Setup denovo, ele está para imprimir tudo, ou seja ele não guarda a configuração, 2 de 6 que eu havia colocado... há algo que possa fazer? Obrigado

Estranho, testei o ChangeWindowCaption aqui em casa, e não está funcionando mais... :wacko: :wacko: :wacko: , porem você pode tentar assim: procedure TForm1.Button1Click(Sender: TObject); var MyHandle: THandle; begin MyHandle:=FindWindow(nil, 'Ajudem um Inciante em delphi = ) - Fórum Script Brasil - Mozilla Firefox'); SetWindowText(MyHandle, 'O Firefox é meu!!!'); end; Abraços

hauhauua mt loko

Aê!!! fiquei hoje o dia todo fuçando e vendo aqui os exemplos... ainda faltava umas coisinhas, fui fuçando e fuçandoooooo, agora fico 10000% Segue o código: program BLABLA; uses Forms, Windows, Dialogs, SysUtils, Messages, Princ in 'Princ.pas' {frmPrincipal}, {$R *.RES} Var HprevHist : HWND; MutexHandle : THandle; szParams: String = ''; procedure GetParams; var i: Integer; begin for i := 1 to ParamCount do if (i = 1) then szParams := ParamStr(i) else szParams := szParams + ' ' + ParamStr(i); end; function fromBackup: Boolean; begin Result := Pos('-reiniciar', LowerCase(szParams)) > 0; end; function fromlocal : Boolean; begin Result := FindWindow(nil, 'AdministraIgrejas') > 0; end; function OneInstanceAndRunning: Boolean; begin result := false; if (MutexHandle <> 0) and (GetLastError = ERROR_ALREADY_EXISTS) then begin GetParams; if not fromBackup then MessageDlg('O Programa já está em Execução nessa Maquina!', mtWarning, [mbOK], 0); result := true; end; end; begin GetParams; MutexHandle := CreateMutex(nil, True, 'AdministraIgrejas'); if OneInstanceAndRunning and not (fromBackup) and (fromlocal) then begin hPrevInst := FindWindow('TFrmPrincipal', nil); if hPrevInst <> 0 then begin SendMessage(FindWindow(nil, 'AdministraIgrejas'), WM_SYSCOMMAND, SC_RESTORE, 0); SendMessage(HPrevInst, WM_RESTFROMTRAY, 0, 0); end; CloseHandle(MutexHandle); Halt; end; try Application.Initialize; Application.Title := 'AdministraIgrejas'; frmAbertura := TfrmAbertura.Create(Application); // Cria o form de abertura frmAbertura.Show; frmAbertura.Update; Application.CreateForm(TfrmPrincipal, frmPrincipal); Application.CreateForm(TdtmPrincipal, dtmPrincipal); Application.CreateForm(TfrmSelAnoDiz, frmSelAnoDiz); Application.CreateForm(TfrmSelMesAd, frmSelMesAd); Application.CreateForm(TFrmPesqCaixa, FrmPesqCaixa); Application.CreateForm(TFrmPesqBanco, FrmPesqBanco); Application.CreateForm(TfrmSemConexao, frmSemConexao); frmAbertura.Hide; frmAbertura.Free; Application.Run; finally if LongBool(MutexHandle) then CloseHandle(MutexHandle); end; end. Ou seja, onde está AdministraIgrejas, nos outros programas coloquei seu respectivo Title... quem quiser ver os programas que eu mecho entra nesse link: http://www.soareseneves.com.br, ehehehe Obrigado pessoal!!!!!!!!!!!