delphi – 最小化/优化重复代码

发布时间：2020-12-15 09:41:47 所属栏目：大数据来源：网络整理

导读：这是我的代码,当鼠标光标悬停在TPanel上时,它会“动画化”TPanel.我还有一个代码块来使它无法动画. procedure Tmain.pStarting1MouseEnter(Sender: TObject);begin if sender = pStarting1 then pStarting1.BevelInner := bvLowered; if sender = pStarting2

这是我的代码,当鼠标光标悬停在TPanel上时,它会“动画化”TPanel.我还有一个代码块来使它无法动画.

procedure Tmain.pStarting1MouseEnter(Sender: TObject);
begin
  if sender = pStarting1 then pStarting1.BevelInner := bvLowered;
  if sender = pStarting2 then pStarting2.BevelInner := bvLowered;
  if sender = pStarting3 then pStarting3.BevelInner := bvLowered;
  if sender = pStarting4 then pStarting4.BevelInner := bvLowered;
  if sender = pStarting5 then pStarting5.BevelInner := bvLowered;
  if sender = pStarting6 then pStarting6.BevelInner := bvLowered;
  if sender = pStarting7 then pStarting7.BevelInner := bvLowered;
  if sender = pStarting8 then pStarting8.BevelInner := bvLowered;
  if sender = pStarting9 then pStarting9.BevelInner := bvLowered;
end;

正如你所看到的,它非常重复,因为我有另外27个TPanels来制作动画,这意味着另外27行重复代码.那么有什么方法可以优化它？

我还尝试将该代码块放入一个单独的过程(在同一单元中).但是Delphi告诉我发件人是未申报的.

解决方法

if Sender is TPanel then
  TPanel(Sender).BevelInner := bvLowered;

或者,如果您确定发件人始终是TPanel,那么

(Sender as TPanel).BevelInner := bvLowered;

或者(如果你确定的话)

TPanel(Sender).BevelInner := bvLowered;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!