|
Компоненты ввода Memo, Edit и RichEdit имеют функцию отмены. Этот пример показывает, как определить, возможна ли отмена, и как отменить последнее действие.procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.KeyPreview := true;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
c: TControl;
begin
if Key <> 13 then Exit;
repeat
c := Form1.FindNextControl(Form1.ActiveControl, true, true, true);
(c as TWinControl).SetFocus;
until c is TEdit;
end;
главная страница задать вопрос email: delphi4all@narod.ru
|