Progr'amador

ve se isso resolve: procedure TForm1.Button1Click(Sender: TObject); begin Application.Minimize; end; Abs. Progr'amador.

AATAAA!!!! então faz o seguinte: na propriedade MultiSelect do ListBox1, coloque TRUE. e use o seguinte codigo: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i := 0 to ListBox1.Items.Count-1 do begin if ListBox1.Selected[i]= true then ListBox2.Items.Add(ListBox1.Items[i]); end; end; Ok? Abs. Progr'amador

Olá, Uma solução pra isso (não muito agradavel), e fazer o seguinte, um exemplo usando um CheckBox e um Buttom - &Excluir (Tecla de atalho na letra E). No OnEnter do CheckBox, você tira o '&' do Caption do Button e no OnExit retorna, tipo: procedure TForm1.CheckBox1Enter(Sender: TObject); begin Button2.Caption := 'Excluir'; end; procedure TForm1.CheckBox1Exit(Sender: TObject); begin Button2.Caption := '&Excluir'; end; Abs. Progr'amador.

Voce teria que usar o Count, só que mostraria somente o numero de registros selecionados, os outros campos não mostraria, tipo: SELECT COUNT(*) FROM CLIENTES_FORNECEDORES WHERE ... ect ... Só uma pergunta, isso ae num seria ASP? Abs. Progr'amador.

Assim: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i := 0 to ListBox1.Items.Count-1 do begin ListBox2.Items.Add(ListBox1.Items[i]); end; end; Abs. Progr'amador.

Ve se é isso que você ta falando... no OnCreate ou no OnShow do form if FileExists(ParamStr(1)) then begin { Carrega o conteúdo do arquivo no memo } Memo1.Lines.LoadFromFile(ParamStr(1)); Com esse código, ao clicar num arquivo texto, o conteudo do seu arquivo texto ira pro memo, mas pra isso, o seu bloco de notas deve estar com padrão com falei no post anterior, ou seja, quando você der dois cliques num arquivo, ira abrir o seu bloco de notas, e o memo receberá o conteudo do arquivo. Abs. Progr'amador.

Bom, se for só isso, faz assim: Edit1.Text := Copy(Edit1.text,1,2)+'/'+Copy(Edit1.text,3,2)+'/'+Copy(Edit1.text,5,4); Abs. Progr'amador.

Outra pergunta: Seria em sequancia? 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 Abs. Progr'amador.

Olá, Tenho um pacote de componentes que tem esse TrayIcon, e tem exemplos tambem de como usar. (Esse pacote tem componentes muito bons) Diga qual a versão do seu delphi que eu te passo. Abs. Progr'amador.

Olá, Não tenho certeza se isso funciona no Win ME, sei que no Win98 funciona. no Windows explorer, no menu Exibir --> Opções de pasta... , na guia Tipo de Arquivo, procure na lista tipos de arquivos: Documento de texto, dê dois cliques, abrirá outra janela - Editar tipo de arquivo, clique em Editar..., ae é só mudar pro seu bloco de notas. Isso torna o seu bloco de notas padrão em vez no NotePad. Uma dica de Windows a parte!!! Abs. Progr'amador.

Simples! é da mesma forma que uma aplicação "normal" (fsNormal). Passo a passo. Nesse exemplo vou usar uma tabela Paradox, Nome tabela: TB_USUARIO, campos: Login e Senha. Usuários exemplo: Login -----Senha Carlos-----123 Joao-------1010 Agora no Delphi: Nome do Projeto: AplicMDI form Prncipal: FormStyle: fsMDIForm; Name : FrmPrincipal; (Unit: Principal.pas) form Login: FormStyle: fsNormal; Name : FrmLogin; (Unit: Login.pas) No FrmLogin, adicione um TTable (Tabel1) para a a tabela TB_USUARIO, dos Edit's (EditLogin e EditSenha) e um bitBtn (btnEntrar). e no OnCreate coloque: Table1.Active := False; Table1.Active := True; e no OnClick do btnEntrar coloque: procedure TForm1.BtnEntrarClick(Sender: TObject); var achou : boolean; begin if EditLogin.Text = '' then begin ShowMessage('Informe o Nome do Usuário...'); EditLogin.SetFocus; Exit; end; achou := Table1.Locate('Login',Trim(EditLogin.Text),[]); if achou then begin if EditSenha.Text = '' then begin ShowMessage('Informe a Senha do Usuário...'); EditSenha.SetFocus; Exit; end; if EditSenha.Text <> Table1.FieldByNAme('Senha').AsString then begin ShowMessage('Senha incorreta...'); EditSenha.Text := ''; EditSenha.SetFocus; Exit; end else Application.Run; end else begin ShowMessage('Usuário não Cadastrado no Banco de Dados...'); EditLogin.Text := ''; EditLogin.SetFocus; end; end; no onShow do FrmPrincipal coloque: FrmLogin.Hide; e no Fonte do projeto (AplicMDI) coloque assim: program AplicMDI; uses Forms, Principal in 'Principal.pas' {FrmPrincipal}, Login in 'Login.pas' {FrmLogin}; {$R *.RES} begin Application.CreateForm(TFrmPrincipal, FrmPrincipal); Application.CreateForm(TFrmLogin, FrmLogin); FrmLogin.ShowModal; end. a grosso modo, é isso!!! Abs. Progr'amador.

Olá Fernando, Realmete, se esse form tiver como principal, ele não pode ser fechado, ae você faz o seguinte, use o principal.hide mesmo, e no OnClose do form logado você coloca: Application.Terminate; Abs. Progr'amador.

Olá nightmare, Existe sim, vou entrar em contato com Capablanca, deve esta com algum proplema. ---------------Editado---------------- Ok!, vou mandar no seu e-mail. Abs. Progr'amador

Olá Fernando, eu num entendi muito bem, cada vez que você entar NUM FORM ira mostar UM NUMERO. Esse "num form" seria só um (1) form mesmo, ou seria varios form que fizesse isso? E esse "um numero", seria só um numero mesmo, tipo 1, 2, 3, ou uma sequencia de numeros: 54874, 65875, 36589? Esclareça melhor sua pergunta. Abs. Progr'amador.

Como assim: tipo, você digita 08122004 e quer que mude para 08/12/2004, é isso? Abs. Progr'amador.

Movendo pra seção C / C++...

É tipo assim: usando o IBQuery IBQuery1.First; while not IBQuery1.Eof do begin ComboBox1.Items.Add(IBQuery1.FieldByName('Campo').AsString); IBQuery1.Next; end; Abs. Progr'amador.

Olá nightmare, você havia postado essa pergunta dentro de um outro tópico que não tinha nada haver com sua pergunta, por isso, criei um outro tópico pra sua pergunta, falou!!! E respondendo sua pergunta, no site do nosso colega Capablanca, você vai encontrar um tutorial sobre Firebird bem detalhado, passo a passo. www.capablanca.com.br Abs. Progr'amador.

Ok! Resolvido, Fechando... Abs. Progr'amador.

Assim: no OnChange do Edit: procedure TForm1.Edit1Change(Sender: TObject); begin if Edit1.text <> '' then Button1.Enabled := True else Button1.Enabled := False; end; Abs. Progr'amador.

Olá raphael, Tenta mudar esse codigo pro OnCreate do Relatorio. Me diga o nome do form de onde você ta abrindo esse relatorio, que eu monto esse código pra você. Outra pergunta: QrListForm, é o nome do seu relatório? Abs. Progr'amador.

Olá, Esses comandos estão sendo executado apartir de um BitBtn? Se for (BitBtn), verifique a propriedade Kind no Object Inspetor do BitBtn, ela deve ficar: bkCustom. Isso já aconteceu comigo... Abs. Progr'amador

Olá, qual a versao do seu windows? Abs. Progr'amador.

Olá, utilize o PopupMenu da Paleta Standard, e no Memo, tem a opção PopupMenu, é so colocar lá o PopupMenu1 que você criou. Abs. Progr'amador.

Utilizo o QuickReport. Abs. Progr'amador.