Jhonas

respondido no outro post abraço

veja esses links http://www.vclcomponents.com/Delphi/Tools/...L_DLL-info.html http://www.web-code-converter.com/resource...tf-to-html.html abraço

pode ser sim .. o windows 7 tem problemas com permissões e previlégios de usuários e pastas o fato de não criar o exe pode ser isso, pois o delphi não tem permissão para escrever em determinada pasta que ele precise. verifique isso. abraço

a lógica é criar uma tabela temporaria com a mesma estrutura da tabela onde será aplicado o primeiro filtro ao aplicar o filtro na tabela os registros desse filtro deverão ser copiados para a tabela temporaria nessa tabela temporaria pode-se então aplicar um segundo filtro, onde conterão apenas os registros que voce precisa OBS: tente fazer, se não conseguir depois eu posto um exemplo abraço

relativo a primeira pergunta: até tem como fazer, mas não com esse DBgrid ... neste caso só daria para colorir o campo todo do registro relativo a segunda pergunta: aprenda a trabalhar com select dentro select http://cristianosalomao.blogspot.com/2007/...-de-select.html abraço

pelo que eu entendi o DBGrid com o titulo Descrição é a tabela que voce quer usar para fazer o Bookmark e ai pegar os registros selecionados e jogar em outra tabela ? ou ela já é a tabela com registros que foram selecionados de outra tabela ?

entendi o que voce quer ... seria algo parecido com o worpad voce pode olhar esses codigos e aproveitar algumas rotinas Editor de Textos completo https://www.scriptbrasil.com.br/download/codigo/5139/ Mini Wordpad http://www.delphifr.com/telecharger.aspx?ID=37079 ou http://files.codes-sources.com/fichier_ful...dof&lang=en program Notepad; uses Forms, UnitMain in 'UnitMain.pas'{FormMain}, Unit1 in 'Unit1.pas'{AboutBox}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TFormMain, FormMain); Application.CreateForm(TAboutBox, AboutBox); Application.Run; end. unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls; type TFormMain = class(TForm1) RichEdit1: TRichEdit; MainMenu1: TMainMenu; MenuFile: TMenuItem; ItemNew: TMenuItem; ItemOpen: TMenuItem; ItemSave: TMenuItem; ItemSaveAs: TMenuItem; N2: TMenuItem; ItemPrint: TMenuItem; N4: TMenuItem; ItemClose: TMenuItem; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; N1: TMenuItem; ItemFont: TMenuItem; FontDialog1: TFontDialog; PopupMenu1:TPopupMenu; ItemUndo: TMenuItem; N3: TMenuItem; ItemRedo: TMenuItem; ItemCut: TMenuItem; ItemCopy: TMenuItem; ItemPaste: TMenuItem; ItemDelete: TMenuItem; N5: TMenuItem; ItemSelectAll:TMenuItem; N6: TMenuItem; ItemFindText: TMenuItem; ItemFindAndReplace: TMenuItem; FindDialog1: TFindDialog; MenuEdit: TMenuItem; ItemUndo1:TMenuItem; ItemRedo1: TMenuItem; N7: TMenuItem; ItemCut1: TMenuItem; ItemCopy1: TMenuItem; ItemPaste1: TMenuItem; ItemDelete1: TMenuItem; N8: TMenuItem; ItemSelectAll1: TMenuItem; N9: TMenuItem; ItemFind1: TMenuItem; ItemFindAndPlace1: TMenuItem; N10: TMenuItem; ItemAutoWarp1: TMenuItem; N11: TMenuItem; ItemAutoWarp: TMenuItem; ReplaceDialog1: TReplaceDialog; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; procedure ItemNewClick(Sender: Tobject); procedure ItemOpenClick(Sender: Tobject); procedure ItemSaveClick(Sender: Tobject); procedure ItemPrintClick(Sender: Tobject); procedure ItemCloseClick(Sender: Tobject); procedure ItemFondClick(Sender: Tobject); procedure PopupMenu1Popup(Sender: Tobject); procedure ItemUndoClick(Sender: Tobject); procedure ItemRedoClick(Sender: Tobject); procedure ItemCutClick(Sender: Tobject); procedure ItemCopyClick(Sender: Tobject); procedure ItemPasteClick(Sender: Tobject); procedure ItemDelectClick(Sender: Tobject); procedure ItemSelectClick(Sender: Tobject); procedure ItemFindTextClick(Sender: Tobject); procedure FindDialog1Find(Sender: Tobject); procedure ItemAutoWarp1Click(Sender: Tobject); procedure ItemFindAndReplaceClick(Sender: Tobject); procedure ReplaceDialog1Replace(Sender: Tobject); procedure FormCreat(Sender: Tobject); procedure MenuFileClick(Sender: Tobject); procedure FromCloseQuery(Sender: Tobject; var CanClose: Boolean); procedure N14Click(Sender: Tobject); private sFileName:String; Function CheckhasModified:Boolean; Function SaveAsFile:Boolean; Function SaveFile:Boolean; Function MyOpenFile(FileName:String):Boolean; { Private declarations } public { Public declarations } end; var FormMain: TFormMain; implementation uses RichEdit,Unit1; {$R *.dfm} function TFormMain.CheckHasModified: Boolean; begin Result:=not RichEdit1.Modified; if not Result then begin Case Application.MessageBox('??????!??????','??', MB_YESNO+mB_ICONQUESTION) OF IDYES:Result:=SaveFile; IDNO:Result:=True; end; end; end; procedure TFormMain.ItemNewClick(Sender: TObject); begin If CheckHasModified Then begin RichEdit1.Lines.Clear; RichEdit1.Modified:=False; sFileName:='???'; end; end; function TformMain.SaveAsFile:Boolean; begin Result:=False; if SaveDialog1.Execute then begin RichEdit1.Lines.SaveToFile(SaveDialog1.FileName0; RichEdit1.Modified:=False; sFileName:=SaveDialog1.FileName; Result:=True; end; end; procedure TFormMain.ItemOpenClick(Sender: TObject); begin if OpenDialog1.Execute then MyOpenFile(OpenDialog1.FileName); end; Procedure TFormMain.ItemSaveClick(Sender: TObject); begin SaveFile; end; function TFormMain.SaveFile: Boolean; begin If sFileName='???' then Result:=SaveAsFile else begin RichEdit1.Lines.SaveToFile(sFileName); RichEdit1.Modified:=False; Result:=True; end; end; procedure TFormMain.ItemSaveAsClick(Sender:TObject); begin SaveAsFile; end; procedure TFormMain.ItemPrintClick(Sender:TObject); begin RichEdit1.Print(sFileName); end; procedure TFormMain.ItemCloseClick(Sender: TObject); begin Close; end; procedure TFormMain.ItemFontClick(Sender: TObject); begin FontDialog1.Font.Assign(RichEdit1.Font); if FontDialog1.Execute then RichEdit1.Font.Assign(FontDialog1.Font); end; procedure TFormMain.PopupMenu1Popup(Sender: TObject); begin ItemUndo.Enabled:=(RichEdit1.Perform(EM_CANUNDO,0,0<>0); ItemRedo.Enabled:=(RichEdit1.Perform(EM_CANREDO,0,0<>0); ItemCut.Enabled:=(RichEdit1.Perform(EM_SELECTIONTYPE,0,0)<>0); ItemCopy.Enabled:=ItemCut.Enabled; ItemPaste.Enabled:=(RichEdit1.Perform(EM_CANPASTE,0,0)<>0); ItemAutoWarp.Checked:=RichEdit1.WordWrap; ItemUndo1.Enabled:=(RichEdit1.Perform(EM_CANUNDO,0,0<>0); ItemRedo1.Enabled:=(RichEdit1.Perform(EM_CANREDO,0,0<>0); ItemCut1.Enabled:=(RichEdit1.Perform(EM_SELECTIONTYPE,0,0)<>0); ItemCopy1.Enabled:=ItemCut.Enabled; ItemPaste1.Enabled:=(RichEdit1.Perform(EM_CANPASTE,0,0)<>0); ItemAutoWarp1.Checked:=RichEdit1.WordWrap; end; procedure TFormMain.ItemUndoClick(Sender: TObject); begin RichEdit1.Perform(EM_UNDO,0,0); end; procedure TFormMain.ItemRedoClick(Sender:TObject); begin RichEdit1.Perform(EM_REDO,0,0); end; procedure TFormMain.ItemCutClick(Sender: TObject); begin RichEdit1.Perform(WM_CUT,0,0); end; procedure TFormMain.ItemCopyClick(Sender:TObject); begin RichEdit1.Perform(WM_COPY,0,0); end; procedure TFormMain.ItemPasteClick(Sender:TObject); begin RichEdit1.Perform(WM_Paste,0,0); end; procedure TFormMain.ItemDeleteClick(Sender: TObject); begin RichEdit1.Perform(WM_CLEAR,0,0); end; procedure TFormMain.ItemSelectAllClick(Sender: TObject); Var P:TPoint; begin P:=Point(0,0); P:=RichEdit1.ClientToScreen(P); FindDialog1.Position := P; FindDialog1.Execute; end; procedure TFormMain.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; st:TSearchTypes; begin with RichEdit1 do begin StartPos :=SelStart + SelLength; ToEnd := Length(Richedit1.Text) - StartPos; st:=[]; if frMatchCase in FindDialog1.Options then st:=st+[stMatchCase]; if frWholeWord in FindDialog1.Options then st:=st+[stWholeWord]; FoundAt := FindText(FindDialog1.FindText,StartPos,Toend,st); if FoundAt <> -1 then begin SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end else ShowMessage('????!') end; end; procedure TFormMain.ItemAutoWarp1Click(Sender: TObject); begin RichEdit1.WordWrap:=not RichEdit1.WordWrap; ItemAutoWarp1.Checked:=RichEdit1.WordWrap; ItemAutoWarp.Checked:=RichEdit1.WordWrap; end; Function TFormMain.MyOpenFile(FileName:String):Boolean; begin Result:=False; if CheckHasModified then begin try RichEdit1.Lines.LoadFromFile(FileName); RichEdit1.Modified:=False sFileName:=FileName; Result:=True; except on E:Exception do ShowMessage(E.Message); end; end; end; procedure TFormMain.ItemFindAndREplaceClick(Sender:TObject); Var P:TPoint; begin P:=Point(0,0); P:=RichEdit1.ClientToScreen(P); ReplaceDialog1.Position := P; ReplaceDialog1.Execute; end; procedure TFormMain.ReplaceDialog1Replace(Sender: TObject); Var P:TPoint; begin P:=Point(0,0); P:=RichEdit1.ClientToScreen(P); ReplaceDialog1.Position := P; ReplaceDialog1.Execute; end; procedure TFormMain.ReplaceDialog1Replace(Sender: TObject): var FoundAt: LongInt; StartPos, ToEnd: Integer; st:TSearchTypes; begin with RichEdit1 do begin StartPos := SelStart + SelLength; ToEnd := Length(RichEdit1.Text) - StartPos; st:=[]; if frMatchCase in ReplaceDialog1.Options then st:=st+[stMatchCase]; if frWholeWord in ReplaceDialog1.Options.then st:=st+[stWholeWord]; FoundAt := FindText(Replacedialog1.FindText, StartPos, ToEnd, st); While FoundAt <> -1 do begin SelStart := FoundAt; SelLength := Length(ReplaceDialog1.FindText); Perform(EM_REPLACESEL,1,Interger(PChar(Replacedialog1.ReplaceText))); SelStart := FoundAt; SelLength := Length(ReplaceDialog1.ReplaceText); if not (frReplaceAll in ReplaceDialog1.Options) then Break; StartPos:=SelStart; ToEnd := Length(RichEdit1..Text) - StartPos; FoundAt := FindText(ReplaceDialog1.FindText, StartPos,ToEnd,st); end; FoundAt:= FindText(ReplaceDialog1.FindText,StartPos,ToEnd,st); if FoundAt=-1 then ShowMessage('????!'); end; end; procedure TFormMain.FormCreate(Sender: TObject); Var s1FileName,TemStr,ParamString:String; i,FromIndex,ToIndex,iPox:Integer; Reg:TRegistry; begin try Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_CLASSES_ROOT; Reg.OpenKey('*\shell\MyNotePad',True); Reg.WriteString('','????????'); Reg.CloseKey; Reg.OpenKey('*\Shell\MyNotePad\Command',True); Reg.WriteString('','"'+ParamStr(0)+'" "%1"'); Reg.CloseKey; finally Reg.Free; end; except end; if ParamCount>=1 then begin i:=1; ParamString:=ParamStr(i); While (ParamString[1]='/') and(i<=ParamCount) do begin Inc(i); ParamString:=ParamStr(i); end; FromIndex:=i; ParamString:=ParamStr(i); if ParamString[1]='/' then Exit; While i<=ParamCount do begin if ParamString[1]='/' then Break; Inc(i); ParamString:=ParamStr(i); end; ToIndex:=i; s1FileName:=GetCommandLine; ParamString:=ParamStr(FromIndex); iPos:=Pos(ParamString,s1Filename); TemStr:=ParamString; Delete(s1Filename,1,iPos-1+length(TemStr)); For i:=FromIndex+1 to ToIndex do begin ParamString:=ParamStr(i); iPos:=pos(ParamString,s1FileName); TemStr:=TemStr+copy(s1FileName,1,iPos+length(ParamString)); end; s1FileName:=TemStr; MyOpenFile(s1FileName); For i:=1 to ParamCount do begin if (ParamStr(i)='/p') or(ParamStr(i)='/p' then begin if Application.MessageBox('????','??',MB_YESNO+MB_ICONQUESTION) =IDYes then RichEdit1.Print(sFileName); Break; end; end end; end; procedure TFormMain.MenuFileClick(Sender: Tobject); begin ItemSave.Enabled:=RichEdit1.Modified; end; procedure TFormMain.FormCloseQuery(Sender: TObject; VAr CanClose:Boolean); begin CanClose:=not RichEdit1.Modified; if not CanClose then begin Case Application.MessageBox('??????!??????','??', MB_YESNOCANCEL+MB_ICONQUESTION) of IDYES:CanClose:=SaveFile; IDNo:CanClose:=True; end; end; end; procedure TFormMain.N14Click(Sender:TObject); begin AboutBox.showmodal; end; end. abraço

Parameters > somente se voce estiver usando algum no seu programa working directory > diretorio de trabalho é bom colocar C:\Delphi2010\Teste source path > caminho para o seu programa C:\Delphi2010\Teste\Teste.exe abraço

ele coloca a primeira como nome e a segunda como nome1 é extamente assim que funciona quando voce adiciona a instrução sql em tempo de execução para ser da maneira que voce quer, a instrução sql deverá estar dentro do componente query em tempo de Design ( projeto ) e desta maneira pelo Editor de colunas voce pode alterar o nome abraço

veja esse post http://forum.imasters.uol.com.br/index.php...2a5e2d7b3a28504 abraço

voce sabe usar o RichEdit ou RichText ? é algo muito parecido para o webbrowser http://scriptbrasil.com.br/forum/index.php...ghlite=richedit http://scriptbrasil.com.br/forum/index.php...ghlite=richtext tente ver o que encontra abraço

então não é preciso, use a própria tabela que voce já usa ... seria a mesma coisa só veja como pretende usar esses registros no seu programa abraço

um pouco sobre a minha experiencia: 1 - vontade de ser programador 2 - paciencia para ser programador 3 - leitura e pesquisa sempre 4 - ter um bom equipamento 5 - desenvolver raciocinio lógico ( como, porque e quando ) 6 - muitas horas dedicadas a pratica ( quanto mais pratica menos trabalho ) 7 - entender não só de software mas de hardware também 8 - sempre estar atualização com as tendências do mercado 9 - atualizar e reciclar sempre existem programadores e "PROGRAMADORES" abraço

veja a modificação ... o parametro tem que vir depois da sua criação DM.queryConsulta.Close; DM.queryConsulta.SQL.Clear; DM.queryConsulta.SQL.Add('select PACIENTE.nome, CONSULTA.DATA, CONSULTA.HORA, MEDICO.nome from PACIENTE, CONSULTA, MEDICO WHERE CONSULTA.DATA =:Data'); DM.queryConsulta.ParamByName('Data').Value := DateToStr(DateTimePicker1.Date); DM.queryConsulta.Open; abraço

voce esta dizendo que o componente esta sumindo ?

como eu disse é necessário que voce leia mais sobre o delphi http://www.devmedia.com.br/articles/viewcomp.asp?comp=4186 abraço

até é possivel, mas daria muito mais trabalho, pois voce teria que guardar a posição de cada registro dentro do DBgrid para depois torna-los a usar novamente para marcar os mesmos registros ... nesse caso é mais facil utilizar uma tabela temporaria, onde voce veria todos os registros selecionados anteriormente e trabalharia exclusivamente com eles. abraço

o uso do Bookmark é para selecionar determinados registros de uma tabela, podendo ser salvos em outra tabela ou utilizados de maneira dinâmica... por exemplo: no caso de emitir etiquetas se os registros foram salvos em uma tabela temporária, voce trabalha com esses registros da maneira que desejar entretanto as marcações do Bookmark se perdem ao fechar e abrir novamente a tabela ... se quer um controle maior em cima dos registros selecionados, terá que usar outra lógica para isso abraço

deixe a propriedade AutoSize = false ... a propriedade WordWrap = true e estique para baixo a borda do label abraço

tambem não tinha reparado cdsChamadoComp.ApplyUpdates(-1); a sua pergunta Como chamarei a rotina pra ficar marcado os items que gravei? voce quer um nome para a rotina ? ou quer dizer como chamar essa rotina pelo programa ? se for um nome .. voce escolhe ser for a chamada da rotina , basta colocar o código dentro de um botão procedure TFRM_CadastroChamado.btnGravarClick(Sender: TObject); abraço

declare: uses dbgrids; var cont : integer begin With Dbgrid1 do Begin if SelectedRows.Count = 0 then begin MessageDlg('OPERAÇÃO ANULADA! '+ #13 + #13 + 'SELECIONE OS REGISTROS.' , mtInformation, [mbOK], 0); DBGrid1.SetFocus; Exit; end; for Cont:= 0 to Pred(SelectedRows.Count) do Begin Datasource.Dataset.Bookmark:= SelectedRows[cont]; cdsChamadoComp.Last; cdsChamadoComp.Insert; cdsChamadoComp.Edit; cdsChamadoCompCOD_CHAMADO.Value := cdsCadastroCODIGO.Value; cdsChamadoCompCOD_COMPONENTE.Value := cdsComponenteCODIGO.Value; cdsChamadoComp.Post; end; cdsComponente.ApplyUpdates(-1); end; de o nome que quiser ... exempo: Adicionar_a_Lista abraço

Instalei o componente no Delphi 7 .... me de um exemplo do que voce esta querendo fazer abraço

procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := timetostr(time()); end; abraço

Por exemplo: Na propriedade SQL de sua Query1. SELECT Nome_do_campo FROM Nome_da_tabela ORDER BY Nome_do_campo Depois ligue o DBGrid com a propriedade DataSource a Query1... Consulte mais sobre SQL... http://www.phpmg.com/artigos-dicas-e-tutor...gratuito-de-sql ao ativar a query voce vera todos os registros da tabela usando separadamente um componente DBEdit voce ligara o componente DataSource1 a propriedade DataSource do DBEdit e na propriedade DataField, colocara qual campo da sua tabela voce quer ... e verá nele o conteudo desse campo Se voce tem muitas dúvidas sobre isso, sugiro voce ler as apostilas disponiveis do forum https://www.scriptbrasil.com.br/apostilas/programas/delphi/ abraço

no dbgrid na propriedade Options > dgMultiSelect = true para que possa selecionar mais de um registro mantenha pressionada a tecla Ctrl e clique com o mouse nos registros que farão parte da lista ( Bookmark ) exemplo de uso ... gravando os registros selecionados em outra tabela for cont:= 0 to Pred(SelectedRows.Count) do Begin Datasource.Dataset.Bookmark:= SelectedRows[cont]; CDS_Etiqueta.Last; CDS_Etiqueta.Insert; CDS_Etiqueta.Edit; j := j + 1; CDS_EtiquetaITEM.Value := j; CDS_EtiquetaCODIGO_FS.Value := TCadLivroxCODIGO_FS.Value; CDS_EtiquetaAUTOR.Value := TCadLivroxAUTOR.Value; CDS_EtiquetaTITULO.Value := TCadLivroxTITULO.Value; CDS_Etiqueta.Post; end; CDS_Etiqueta.ApplyUpdates(-1); abraço