Olá turma.
Gostaria de saber se alguém já trabalhou (delphi ou não), com capturas de fila
de impressão.
Preciso fazer algo que gerencie o que é enviado para impressora e saber quem é
o usuário, quantas páginas mandou.
Agradeço a ajuda de todos
Jefferson Bompadre
cel: (11) 7165-4146
[EMAIL P
É no evento OnKeyDown, pois no OnKeyPress o parâmetro Key é do tipo Char.
Jefferson Bompadre
cel: (11) 7165-4146
[EMAIL PROTECTED]
[EMAIL PROTECTED]
- Original Message -
From: Erika Lemes
To: [EMAIL PROTECTED]
Sent: Thursday, November 25, 2004 2:19 PM
Subject: Re: RE
Tente esta rotina, é a que eu uso. Ela abre o e-mail padrão, com os anexos e
tudo.
Obs: Substitua a função msgInformacao por showMessage, ou MessageDlg, ou
MessageBox.
Uses
Classes, Forms, SysUtils, Mapi;
function EnviarEMail( pTo, pCC, pCCo, pAssunto, pTexto: PChar; aFiles: Array Of
PChar
Então faça diferente.
Coloque a propriedade do Form, KeyPreview = True.
Depois no Evento do Form: OnKeyDown, coloque?
case key of
VK_F2: If Edit.Focused Then ChamaATela();
end;
Com isso vai funcionar qdo vc clicar no F2 no form.
Jefferson Bompadre
cel: (11) 7165-4146
[EMAIL PROTECTED]
[E
Utilize o método Focused
If (Edit1.Focused) Then
Jefferson Bompadre
cel: (11) 7165-4146
[EMAIL PROTECTED]
[EMAIL PROTECTED]
- Original Message -
From: Erika
To: [EMAIL PROTECTED]
Sent: Thursday, November 25, 2004 11:25 AM
Subject: [delphi-br] SetFocus
Oi pessoa
Usando o teu exemplo:
var NovoItem : TMenuItem;
Index: Integer;
begin
// Item 0 (Cadastros)
NovoItem := TMenuItem.Create(MainMenu1);
Index := MainMenu1.Items.Add(NovoItem);
NovoItem.Caption := 'Cadastro';
// SubItem
NovoItem := TMenuItem.Create(MainMenu1);
MainMenu1.Items[Index]
Utilize o envento DrawColumnCell do grid.
Abaixo um exemplo:
with dbGrid do begin
If ( Column.FieldName = 'QuantidSaldo' ) And
( DataSource.DataSet.FieldByName('QuantidSaldo').AsInteger < 0 ) ) Then begin
Canvas.Font.Color := clRed;
DefaultDrawColumnCell(Rect,Da
with adoquery do begin
Close;
Sql.Clear;
Sql.Add('Select Material From Produtos Where Data between :DataIni and :DataFim');
Parambyname('DataIni').AsDateTime := StrToDateTime('01/01/2004 00:01');
Parambyname('DataFim').AsDateTime := StrToDateTime('31/01/2004 23:59');
Open;
end;
Espero
Tente fazer assim:
with qry do begin
CommandText := 'Update Tabela Set Campo1 = :pCampo1, Campo2 = :pCampo2 Where Chave =
:pChave';
ParamByName('pCampo1').AsString := 'Texto';
ParamByName('pCampo2').AsDateTime := Date;
ParamByName('pChave').AsInteger := 1;
ExecSQL;
end;
Sempre que voc
Christian,
já tive este problema também. No meu caso era porque os parâmetros da consulta
anterior ficam registrados no ClientDataSet.
Tente fazer um FetchParams antes de abrir o DataSet.
Jefferson Bompadre
cel: (11) 7165-4146
[EMAIL PROTECTED]
[EMAIL PROTECTED]
- Original Mes
Vc está dentro de um FORM?
Se não, vc tem que informar qual a classe que vc quer ler o componentcount e
components.
Jefferson Bompadre
cel: (11) 7165-4146
[EMAIL PROTECTED]
[EMAIL PROTECTED]
- Original Message -
From: Gercil Junio
To: Delphi BR
Sent: Thursday, October
11 matches
Mail list logo