Kronos913 |
22.04.2024 21:54 |
9 схожих процедур
Обнаружил у себя в программе 9 процедур-реакций, которые состоят из одного оператора - вызова однотипной функции с одним и тем же параметром.
Вопрос: какие есть идеи, как сделать так, чтобы была одна процедура-реакция которая будет понимать какая кнопка ее вызвала и вызывала соответствующую процедуру?
Код:
procedure TForm1.But11C(Sender: TObject);
begin
F1_Bt_10(false);
end;
procedure TForm1.But17C(Sender: TObject);
begin
ImgVisPer(false);
end;
procedure TForm1.But28C(Sender: TObject);
begin
Panel4_Visible(false);
end;
procedure TForm1.But32C(Sender: TObject);
begin
ImgVisPer_3(false);
end;
procedure TForm1.But35C(Sender: TObject);
begin
Panel8_Visible(false);
end;
procedure TForm1.CHB_Panels_F_X(Sender: TObject);
begin
F1_CHB_Panels_F_V(false);
end;
procedure TForm1.F1_Folders_Exit(Sender: TObject);
Begin
F1_Folders_Visible(false);
End;
procedure TForm2.MultiCut_Close(Sender: TObject);
begin
MultiCut_Visible(false);
end;
procedure TForm3.But10C(Sender: TObject);
begin
F3_Pnl1(false);
end;
|