s3c

qryfornecedor.Open; if not qryfornecedor.Eof then // insira esta linha begin messagedlg('Usuário já cadastrado',mtwarning,[mbok],0); dbnome.Clear; dbnome.SetFocus; end

Olá Paulo, existe a função GetTickCount que retorna essa informação em ms.

Vá em: Tools/Debugger Options/Language Exceptions; clique em Add, digite EConvertError, clique em Ok e Ok

Seria mais fácil você postar a definição das 3 classes.

Veja esse link

Olá ariana, você pode fazer assim: dll library Minha_dll; uses ShareMem, // <== coloque na primeira linha do uses SysUtils, Classes; {$R *.res} function Funcao_na_dll(Entrada:PChar):PChar; var s:String; begin s := 'A Funcao_na_dll recebeu: ' + Entrada; Result := AllocMem(Length(s)+1); Move(s[1], Result^, Length(s)); end; exports Funcao_na_dll; begin end. Aplicação .dprprogram Teste_dll; uses ShareMem, // <== coloque na primeira linha do uses Forms, uTeste_dll in 'uTeste_dll.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. Aplicação .pasunit uTeste_dll; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); type TFuncao_na_dll = function (Entrada:PChar):PChar; var HLib:DWord; Funcao_na_dll:TFuncao_na_dll; Result_na_dll:PChar; begin HLib := LoadLibrary(PChar('Caminho_da_dll\Minha_dll.dll')); if Hlib = 0 then Exit; Funcao_na_dll := GetProcAddress(HLib, 'Funcao_na_dll'); if @Funcao_na_dll <> nil then begin Result_na_dll := Funcao_na_dll(PChar(Edit1.Text)); ShowMessage(Result_na_dll); FreeMem(Result_na_dll); end; FreeLibrary(HLib); end; end.

Se você observar o post inicial, notará que o problema era que o botão não desaparecia; daí sugerí duas possíveis soluções e uma delas foi atribuir nil ao Parent. Não acho que seja um macete. Se você analisar o método SetParent de TControl, verá que atribuindo-se qualquer Parent que não seja o mesmo, é executado o método RemoveControl, onde sua visibilidade é retirada e em seguida é executado o método InsertControl recolocando a visibilidade(quando Parent <> nil). Note que InsertControl só é executado quando o novo Parent for <> nil; portanto a condição é prevista em SetParent e na minha opinião é perfeitamente válida sem que seja um macete.

Pessoal, comigo no D6 criando o botão em execução as duas instruções funcionam perfeitamente: Bt.Hide; e Bt.Parent := nil; O evento onMouseEnter é executado somente quando o botão está visível.

Não tem Parent ?Ele não descende de TControl ?

RegisterHotKey(Handle, 1, Mod_Alt, VK_F4);

Tente colocar: cmdInserir.Parent := nil; Se não sumir, tente colocá-lo num TPanel e Panel1.Hide;

Tente assim: WinExec('cmd /k dir', SW_Show);

O compilador não diz a unit e o número da linha do erro ? Poderia postar o erro completo exibido pelo compilador ?

Se for um componente, experimente deletá-lo ao invés de colocar {} Delete também as linhas de código que o utilizam. Verifique na cláusula uses da interface e implementation se há alguma referência para ele e retire de lá também.

Quando ocorre esse fatal error ?

Instale antes o .dpk que contém o 'flash'

Não sei se foi erro de digitação, mas não é: Directory := Reg.ReadString('Shell Folders', 'AppData', '')+'\Microsoft\Internet Explorer\Quick e sim: Directory := Reg.ReadString('Shell Folders', 'AppData', '')+'\Microsoft\Internet Explorer\Quick Launch'; Bom, em todo o caso acho melhor ler o conteúdo de 'AppData' na chave 'Shell Folders' porque de um S.O. para outro pode mudar. Nunca utilizei o TRegIniFile e sim o TRegistry onde você informa a RootKey := HKEY_LOCAL_MACHINE para depois ler as chaves Software\Microsoft\. . .; não sei se é o caso da RootKey de TRegIniFile ser diferente. Quanto aos Extracts, acho que utilizando somente o Application.Exename, deve funcionar porque ele traz o caminho completo do executável.

você pode instalar os componentes RxLib que entre eles há o RxGifAnimator

Olá Paulo, tente trocar: QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\GrpConv'; por: QUICK_LAUNCH_ROOT = 'Software\MicroSoft\Windows\CurrentVersion\Explorer'; e Directory := Reg.ReadString('MapGroups', 'Quick Launch', ''); por Directory := Reg.ReadString('Shell Folders', 'AppData', '')+'\Microsoft\Internet Explorer\Quick Launch';

Coloque no evento onClick: Button1.Tag := Button1.Tag + 1; Edit1.Text := IntToStr(Button1.Tag);

você pode utilizar: WebBrowser1.Navigate('Endereço da URL');

Está estranho porque fiz um teste e funcionou com: Dicas_Delphi_db RCDATA Dicas_Delphi.db Dicas_Delphi_mb RCDATA Dicas_Delphi.mb Os arquivos Dicas_Delphi.db e Dicas_Delphi.mb existem ?

Experimente tirar o "." do nome do recurso e o "&" dos dois nomes: Dicas_Delphi_Mb RCData Dicas_Delphi.Mb Dias_Delphi_db RCData Dicas_Delphi.db Quanto ao Paradox, espero que outro colega do fórum possa informar, porque eu não conheço.

Sim, mas pelas msgs WM_LBUTTONDOWN e WM_KEYDOWN, o caret ainda não está atualizado; talvez ativando um Timer poderia funcionar e também faltaria código quando o RE ganha o foco (onEnter).

Olá Micheus, acho que a mais correta seria escrever na WindowProc do RichEdit, porque a WndProc é executada para todas as msgs do Form e a maioria delas não são para o RE. O problema da WindowProc é que tem que se conhecer as msgs para atualizar o Label, que eu não conheço todas, senão provavelmente dará um StackOverflow.