s3c

Seu campo CodPart no banco é string? O seu StringList Lista2 só tem um código na propriedade Text?

Bom, o parâmetro codigo é identificado no seu sql por :codigo

porque codigo é o nome do parâmetro de seleção. Para atribuir um valor: query1.parambyname('codigo').asString := fmGerarRelAt.Lista2.Items.Text; Obs: Se seu campo CodPart for string, senão você tem que converter.

Bom, com o ODBC você deve criar um Alias no BDE Administrator para depois poder utilizá-lo por exemplo num TDatabase como AliasName. Procure algum tópico para configurar um Alias no BDE Administrator e ODBC Administrator.

Vá em Project/Options/Directories Conditionals. No combo do Search Path, cole o path da StdActns.pas. Dê Ok e tente compilar. Se compilar, então o novo .dcu será criado, jogue-o p/ o lib do Delphi.

Tente colocar o path da StdActns.pas no Search Path do Options do seu projeto. Daí se compilar gerando seu novo .dcu, você joga na pasta lib do Delphi.

Ué, coloque no constructor da classe um Owner:TObject. Daí você faz: var MC:TMinhaClasse; NC:TNovaClasse; begin MC := TMinhaClasse.Create; NC := TNovaClasse.Create(MC); // NC.Owner é o objeto que a instanciou (MC) end;

Ou baixe o driver em: http://dev.mysql.com/downloads/connector/odbc/3.51.html Aí você acessa com BDE.

Depende do driver, se você tiver ODBC, acessa via BDE, se for DBExpress, acessa pelos componentes da paleta DBExpress.

Tente o seguinte: Coloque um TImageList, carregue os bitmaps nele. Utilize: ImageList1.GetIcon(indice, Icone);

Realmente eu prestaria atenção na função StrToNum para ver o que ela está retornando, porque você está colocando como parte do nome de um componente.

você deve estar dando Show na sua aplicação e não na dll. Eu utilizo forms não modais em dlls, mas na função da dll existe um var fm:TxxFM, onde TxxFM é descendente de TForm. Então na dll ocorre o seguinte: function xExibaForm(ParsDll:TParsDll):TObject; stdcall; var fm:TxxFM; begin fm := TxxFM.Create(Application); Result := fm; fm.Show; end; No meu caso, TParsDll já são parâmetros predefinidos. A Dll é que se encarrega de todo o processamento do Form e daí é possível chamar a função xExibaForm várias vezes sem dar problemas, pois a variável fm é local e a cada chamada é criada uma nova instância. Vale lembrar também que no compartilhamento de objetos entre a aplicação com a dll, tem que ser colocado ShareMem na primeira linha do Uses do .dpr da aplicação e no .dpr da dll.

Procure Rx*.R32 (deve estar em alguma pasta dentro de RxLib. Abra o Delphi, vá em Tools/Environment Options/Library. Clique nas reticências do Library Path. Cole o path do Rx*.R32 no edit abaixo do combo dos paths. Clique em Add, Ok, Ok. Tente compilar.

O que pode ser é dela estar recebendo um caracter de controle. Experimente mandar um texto simples.

Bom, com 40 Forms você deve criá-los na medida que for utilizando. No onCreate do Form1 coloque: procedure TForm1.FormCreate(Sender: TObject); begin Application.CreateForm(TForm40, Form40); Form40.Show; end;

Bom, acho que no mínimo você deve ter 2 forms e quer que o Form2 entre antes do Form1. É isto? Se for isto, é só no .dpr inverter o Application.CreateForm p/ criar o Form2 antes do Form1.

Como você é novo (14 anos), te aconselho junto com o Delphi a aprender o C++ também.

Esquecí de dizer, quando você abir o .dpk, provavelmente dará um erro de Cannot find resource file, mas é só dar Ok.

Bom, lá diz que é Alpha mas é de 18/02/2002. Eu utilizo c/ Delphi6 e nunca tive problemas, p/ Delphi 7 pode ser baixado em: http://codecentral.borland.com/codecentral...isting?id=18589 Requer login, se não tiver clique em New User e preencha alguns dados; o email tem que ser correto porque é enviado um email com o link para ativar o login. Não tem problema, o site é da Borland mesmo. Aproveitando se você não conhece, em: http://community.borland.com Clique em Code Central, lá tem muita coisa interessante sobre Delphi. Bom, descompacte o .zip, abra o Delphi, file/Close All. File/Open RxCtl7.dpk (na pasta RxLib\Units). Clique em Options/Description flegueDesigntime and Runtime e Rebuild as Needed. Depois vá em Directories/Conditionals e preencha Output Directory, Unit Output Directory e DCP Output Directory com C:\...\RxLib Em Search Path coloque C:\...\RxLib\Units. Dê Ok e clique em Compile, se compilação Ok, clique em Install. Feche a janela(vai pedir p/ salvar as alterações) e salve. Faça o mesmo com dclrx7.dpk. Se tudo Ok vão ser colocadas 2 guias na paleta de componentes, RX Controls e RX Tools; o TrxGifAnimator está na RX Controls. Obs: os demais .dpk são para banco de dados e não posso dizer porque não instalei.

Existe também uma suite de componentes gratuita RxLib em: http://sourceforge.net/projects/rxlib Nesta suite tem o TRxGIFAnimator para animação de gifs. Obs: Sem querer menosprezar o TGifImage, mas já tive problemas com ele por não conseguir animar vários gifs.

Desculpe se vou escrever alguma besteira, mas você disse que imprime em várias impressoras e só em uma que não sai a impressão, certo? você já testou nessa impressora que não imprime se ela imprime corretamente sem ser pelo seu sistema?

Eu não aconselharia você a fazer reaproveitamento de código para chaves primárias, porque geralmente em sistemas essas chaves estão relacionadas com outras tabelas. No caso de reaproveitar códigos excluídos, você pode criar uma tabela secundária de controle, tirar a opção de auto-incremento pelo banco e utilizar a função Max do SQL.

onKeyDown e onKeyUp

Bom, sinto muito mas não tenho tempo para fazer escovação de bits em arquivos binários, mas se um campo inteiro é gravado na sua forma original(4 bytes) uma dica é: var p:PChar; i:Integer; begin i := 123456789; p := AllocMem(4); Move(i, p^, 4); // armazena o valor em 4 bytes de memória. Move(p^, i, 4); // recupera da memória e joga na variável i. FreeMem(p); end; Ou seja, você lê do arquivo para uma área de 4 bytes e depois pelo Move, você o coloca na variável do tipo Integer.

Bom, um TEdit é uma janela Windows e como qualquer outra recebe e processa mensagens internamente. Em algumas delas temos acesso facilmente pelo Delphi, outras somente utilizando Apis, ou seja, mandamos que o Windows faça isso. O Delphi poderia disponibilizar a propriedade Alignment num TEdit, mas não o fez. Então fazemos isso mandando uma msg não para um TEdit do Delphi e sim para uma janela do Windows. O SendMessage manda uma msg para um controle do Windows identificado pelo seu Handle(Edit.Handle); depois o tipo da mensagem(EM_SETMARGINS), qual margem(EC_LEFTMARGIN) e quantos pixels. É claro que para cada tipo de mensagem existem tipos de parâmetros diferentes. E também cada tipo de controle aceita certos tipos de mensagens e outros não. No tipo EM_SETMARGINS o Windows já redesenha o controle, de modo que nem é preciso efeetuar o Repaint do TEdit. Bom, acho que é mais ou menos isso.