Como Criar as como faço para criar uma classe em Delphi?
----- Original Message -----
From: Neto
To: [EMAIL PROTECTED]
Sent: Saturday, September 25, 2004 11:38 PM
Subject: Re: [delphi-br] Criar Funcao
Não é necessaria uma função.
Pra controlar o estado dos botões de registro use o DataSource no seu evento
OnStateChange da seguinte forma:
procedure TForm1.DataSource1StateChange(Sender: TObject);
const
Estados: array [TDatasetState] of String =
('Fechado','Consultando','Alterando','Inserindo','','','','','','','','','')
; file://a tabela pode ter 13 estados diferentes
begin
btnIncluir.Enabled := DatatSource1.State in [dsBrowse,dsInactive]; //botão
incluir
btnGravar.Enabled := DatatSource1.State in [dsInsert,dsEdit]; //botão
gravar
btnCancelar.Enabled := DatatSource1.State in [dsInsert,dsEdit]; //botão
cancelar
btnExcluir.Enabled := DatatSource1.State in [dsBrowse]; //botão excluir
btnProcurar.Enabled := DatatSource1.State in [dsBrowse,dsInactive];
//botão procurar
StatusBar1.Panels[0].Text := Estados[DatatSource1.State]; // estado da
tabela na statusbar
end;
esta procedure trata os botões de maneira lógica. Para usá-la basta que a
table (ou Query etc) altere seu estado (inserindo, alterando, etc) e estes
serão repassados via DataSource para os componente DataAware (dbedits,
dbcombobox etc).
Quanto a class para cadastro crie um form pai e use-o para criar os demais
forms de inclusão. Use orientação a objeto desta maneira e ganhe tempo em
desenvolvimento. Neste form pai acrescente buttons, e todo o layout padrão a
todos os forms que irão trabalhar com dados do banco.
Sds
Neto
----- Original Message -----
From: "Lucas Lombardi" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, September 24, 2004 2:09 PM
Subject: [delphi-br] Criar Funcao
Ola,
Como eu faço para criar uma funçao no Delphi 6, e como Faço para chama-la...
Exemplo Quero Criar uma Funcao que controla os botoes do meu form, quando
abrir um registro alguns fiicarem enabled = true e quando gravar voltar
alguns botoes a false
E como faço para criar class de form para cadastro em Delphi???
Grato
Lucas
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
