Vielen Dank, das schaue ich mir mal in Ruhe an.
Zusatz:
nach einigen mißlungenen Versuchen bin ich zum Delphi Standard zurück. Ich habe in der Form die Eigenschaft "KeyPreview" auf "True" gesetzt und die Ereignisse "FormKeyDown" und FormKeyPressed" bearbeitet.
Code:
procedure TFormS.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if btnUnterschreiben.Checked then key := 0;
end;
procedure TFormS.FormKeyPress(Sender: TObject; var Key: Char);
begin
if btnUnterschreiben.Checked then key := #0;
end;
Für meine Zwecke funktioniert es sehr gut. So lange die Checkbox True ist, werden die Tastureingaben nicht weiter bearbeitet. Trotzdem Danke dir für deine Hilfe.
