Topic: Как оптимизировать скрипт?
Есть несколько событий procedure (11 штук) с одним и тем же действием на разные объекты, можно ли как то короче это прописать? А то получается длинная портянка, я так подозреваю что и программа потом медленней будет работать с большим скриптом. Заранее спасибо.
//сброс по нажатию ескейп
procedure Form1_cbStatus_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if Key=27 then Form1.Button9.Click;
end;
procedure Form1_edClientName_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if Key=27 then Form1.Button9.Click;
end;
procedure Form1_dtDate_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if Key=27 then Form1.Button9.Click;
end;