Olá galera tipo é o seguinte estou fazendo o programa aqui e queria que quando eu apagasse os dados da pessoa ele apagasse a figura que está no componente image1 e retrocedesse ao registro anterior como faço??? a tabela já faz isso só que não exclui a figura......
olhem só....
procedure TForm1.BitBtn2Click(Sender: TObject);
var n: Integer;
begin
n:=Application.MessageBox('Deseja Apagar o Registro?','Salvar Foto',36);
if n = 6 then
Table1.delete
Else begin
Table1.Cancel;
ShowMessage('A Ação Foi Cancelada Pelo Usuário!');
Pergunta
Guest - [_THIAGO_] -
Olá galera tipo é o seguinte estou fazendo o programa aqui e queria que quando eu apagasse os dados da pessoa ele apagasse a figura que está no componente image1 e retrocedesse ao registro anterior como faço??? a tabela já faz isso só que não exclui a figura......
olhem só....
procedure TForm1.BitBtn2Click(Sender: TObject);
var n: Integer;
begin
n:=Application.MessageBox('Deseja Apagar o Registro?','Salvar Foto',36);
if n = 6 then
Table1.delete
Else begin
Table1.Cancel;
ShowMessage('A Ação Foi Cancelada Pelo Usuário!');
Table1.First;
end;
end;
Como faço
Falow...
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.