Kikonanet

Mostrando Campo MEMO em um DBGRID procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var R : TRect; begin R:=Rect; Dec(R.Bottom,2); if Column.Field=Query1.FieldByName('Campo_Memo') then begin if not (gdSelected in State) then DBGrid1.Canvas.FillRect(Rect); DBGrid1.Canvas.TextRect(R,R.Left,R.Top, Query1.FieldByName('Campo_Memo').AsString); end; end; Abs. Kiko

Olá, Não sei se entendi muito bem, mas olhando no código tente assim: //// if not Achou then begin // Coloque aki os comandos caso não achar o registro EditNomePaciente.Text := ''; ComboBoxLeito.Text := ''; ComboBoxNAtendimento.Text := ''; EditNProntuario.Text := ''; MemoVaiParaPrescricao.Clear; ShowMessage('Prontuário não encontrado!'+#13+'Comece uma nova prescrição para este paciente'); EditNProntuario.SetFocus; end; qualquer coisa posta ae Abs. Kiko

Olá, No label diretamente você não consegue digitar, mas você pode usar um Edit para ir escrevendo nele e aparecendo nos Labels. No Evento OnKeyUp do Edit, ponha este código: procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin Label1.Caption:=Edit1.Text; Label2.Caption:=Edit1.Text; end; Abs. Kiko

Olá, Dá sim... você coloca um TImageList, na propriedade images do Popmenu você seta o ImageList... Na propriedade ImageIndex do Item do Popmenu você seta a index relacionada a sua imagem. qualquer. coisa posta ae Abs. Kiko

Olá, Dê uma olhada neste tópico, acho q pode te ajudar. http://scriptbrasil.com.br/forum/index.php?showtopic=55349 Abs. Kiko

Olá, Tenta assim with dm.IBQuery1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM SUATABELA'); Open; while not(EOF) do begin cmbcodequipa.Items.Add(DM.IBQuery1.FieldByName('codequipa').AsString); Next; end; end; Abs. Kiko

Olá Tiago, Tire a virgula que vem logo depois do campo endereco... SQL.Add ('INSERT INTO DATA(nome, telefone ,...., endereco)'); qualquer coisa posta ae Abs. Kiko

Olá Luke, Tudo bem que você foi sincero, convenhamos que não precisava responder dessa forma! Estamos aqui para ajudar! Veja se te ajuda Dê uma olhada no componente DSPACK (eu nunca mexi nele) http://sourceforge.net/projects/dspack http://www.progdigy.com/modules.php?name=DSPack Abs. Kiko

Olá Paulo, Tenta assim... Mail := 'mailto:email@empresa.com.br?subject=texto do subject &?'; ShellExecute(GetDesktopWindow,'open',pchar(Mail),nil,nil,sw_ShowNormal); Eu não sei se você consegue anexar pelo Outlook. Dê uma olhada neste link. Procure no link freeware SMComponent (lado esquerdo) o componente TSMMAPIMail (no fim da página). http://www.scalabium.com/ Abs. Kiko

Olá, Dê uma olhada neste link http://scriptbrasil.com.br/forum/index.php...topic=54864&hl= Abs. Kiko

Olá, Tem um componente RXLib (SecretPanel) que tmb te ajuda. Dê uma olhada nele. Abs. Kiko

Olá, Adiciona um Timer e coloca no Evento OnTimer : if Label1.Left < GroupBox1.Width then Label1.Left:=Label1.Left+1 else Label1.Left:=0 Veja se é isso. Abs. Kiko

Olá, não sei se te ajuda, mas você pode desbilitar o TabSheet3.Enabled:=False; if CampoValidacao <> True then begin TabSheet3.Enabled:=True PageControl1.ActivePage := TabSheet3; end; Abs. Kiko

Olá, Ao invés de você usar no Evento OnKeyDown... Coloque no OnKeyUP...Creio q assim resolverá o problema... Explica melhor essa sua segunda dúvida ai.... Abs. Kiko

Carla, Dê uma olhada neste link da seção de dicas Esta é uma dica do Progr'amador: Como usar o Install Shield http://scriptbrasil.com.br/forum/index.php...pic=54960&st=15 Abs. Kiko

Testa ai... No OnKeyDown (Para qualquer tecla...) procedure TForm1.MemoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin StatusBar1.Panels[0].Text:='Linha: '+IntToStr(Memo.CaretPos.Y) + ' Coluna: '+IntToStr(Memo.CaretPos.X); end; Abs. Kiko

Olá, Dê uma olhada nestes links. http://www.activedelphi.com.br/modules.php...id=5060#pid9272 http://lib.seven.com.br/ampliar.asp?codcat=&codartigo=707 Obs: Dê uma olhada no componente TIdIcmpClient (palheta Indy) Espero q te ajude. qualquer coisa posta ae. Abs. Kiko

Olá, Funciona sim, é q você tem q colocar no Evento onClick do Memo... procedure TForm1.Memo1Click(Sender: TObject); begin StatusBar1.Panels[0].Text:='Linha: '+IntToStr(Memo1.CaretPos.Y) + ' Coluna: '+IntToStr(Memo1.CaretPos.X); end; Abs. Kiko

Olá, Aproveitando o código do Progr'amador Acrescenta o Edit3 ... var ArqTxt : TextFile; Linha, Codigo, Cliente, Atendimento : string; x : Integer; Achou : boolean; begin AssignFile(ArqTxt,'C:\CLIENTES.txt'); Reset(ArqTxt); Achou := False; while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); Codigo := Copy(Linha,1,Pos('-',Linha)-1); delete(Linha,1,Pos('-',Linha)); Cliente := Copy(Linha,1,Pos('-',Linha)-1); x := Length(Linha) - Length(Cliente); Atendimento := Copy(Linha,Pos('-',Linha)+1,x); if trim(Edit1.text) = Codigo then begin Edit2.Text := Cliente; Edit3.Text := Atendimento; Achou := True; Exit; end; end; Linha := ''; Closefile(ArqTxt); if not Achou then begin Edit2.Text := ''; Edit3.Text := ''; ShowMessage('Codigo não encontrado!'); Edit1.SetFocus; end; end; Abs. Kiko

Olá, Tenta assim: Var Comando: PAnsiChar; begin Comando:='Command.com /C java -cp "Multilinhas.jar;C:\swt-3.0.1-win32\swt.jar" -Djava.library.path="C:\swt-3.0.1-win32" spider.editormulti.EditorMultiMain'; Winexec(Comando,SW_MAXIMIZE); end; Abs. Kiko

Olá, Acho q você teria que ficar "pingando" em algum servidor (ou router), vai depender da estrutura da rede... Tipo, se responder a rede está no ar... Não sei se dará certo mas podemos tentar. Se eu achar algo eu posto ai... Abs. Kiko

Olá, Depois você olha a propriedade CaretPos do Memo... olha no help Tenta assim: ShowMessage('Linha: '+IntToStr(Memo1.CaretPos.Y)); ShowMessage('Coluna: '+IntToStr(Memo1.CaretPos.X)); qualquer coisa posta ae Abs. Kiko

Olá, Tente assim: Winexec('Command.com /C comando',Tipo_Janela); Tipo_Janela : SW_SHOWNORMAL - Visualização normal da janela SW_MAXIMIZE - Janela maximizada SW_MINIMIZE - Janela minimizada SW_HIDE - Escondido Comando: ex. ipconfig Abs. Kiko

Olá, Seria o FileExists() ?? ex. If FileExists('C:\Windows\arq.exe') then .... Abs. Kiko

Olá, Rede Interna? Conexão com Internet? Se a máquina está na rede? Abs. Kiko