Charllys

Olá. Estou com um probleminha aqui. Eu estou usando o Delphi Comunit, quando coloco o sistema em execução a tela do aplicativo fica inativa, ela abre mas não consigo clicar em nenhum canto, nem nos botões e o windows a cada clique que dou ele dá aquele som de notificação de erro. alguém pode me dizer o que houve e como resolver? Obrigado

MEu nome é Charles sou estou começando a programar em Delphi e estou com algumas dificuldades. Se alguém puder me ajudar eu agradeço. Em meu cadastro não consigo salvar nem excluir uma informação, já revisei o código e não encontrei o erro. Estou enviando o código abaixo. Eu agradeço se você puder me ajudar. AVISO: seu post foi movido para o forum de Delphi e já foi respondido https://www.scriptbrasil.com.br/forum/topic/178548-duvida/?p=676956 abraço

Olá meu nome é charles estou desenvolvendo um sistema em Delphi e o bd é sql server, estou com dificuldades em programar os botões SALVAR e EXCLUIR de um dos formulários. O código abaixo é do botão salvar: procedure TF_Secretarias.BtnSalvarSecretariaClick(Sender: TObject); begin Try Begin label22.Caption:='Numero de Registros: ' + inttostr(f_dados.Q_Secretarias.RecordCount); //Salvar o registro F_Dados.Q_Secretarias.Post; // Mostrar a mensagem ShowMessage('Registro Gravado com Sucesso'); End; Except Begin ShowMessage('operação não Disponível'); BtnInserirSec.SetFocus End; end; End; O CÓDIGO NÃO SALVA Esse é do botão EXCLUIR procedure TF_Secretarias.BtnExcSecretariaClick(Sender: TObject); begin Try Begin If Application.MessageBox('Confirma a Exclusão?', 'Excluir', MB_Yesno)=IDYes Then If Application.MessageBox('Tem certeza?', 'Confirma', MB_Yesno)=IDYes Then begin F_Dados.Q_Secretarias.Delete; end; label13.Caption:='Numero de Registros: ' + inttostr(f_dados.Q_Secretarias.RecordCount); End; Except Begin ShowMessage('Operação não Disponivel' ); BtnInserirSec.SetFocus; end; End; end; Preciso da ajudade de vocês... Obg.