Tenho um sistema e em uma parte preciso que somente membros do suporte possam desmarcar um checkbox.
Já Tentei diversos códigos mas sempre ocorre o mesmo problema : O CheckBox por padrão quando clicado ele é marcado ou desmarcado e eu não consegui achar uma maneira de parar esse processo e somente dar continuidade com a senha.
Último Código que tentei :
procedure TFEncerramentoPeriodo.CBFinanceiroClick(Sender: TObject);
var senha,senhad : String;
begin
senha := '328Cont';
if CBFinanceiro.Checked = true then
begin
if not(InputQuery('Digite a Senha', 'Senha', Senhad))
then
exit;
if (SenhaD=Senha) then
begin
CBFinanceiro.Checked := False;
end
else
begin
ShowMessage('Senha Incorreta! Somente Membros do Suporte Podem Desmarcar Essa Opção!');
CBFinanceiro.Checked := True;
end;
end
Pesquisei em vários locais e inclusive aqui no SO e não achei ninguém com a mesma duvida ou problema igual ou parecido.