Опимизация - Общие вопросы Delphi

Ko$ · 18.12.2011, 11:34

Как можно оптимизировать:

Код:

procedure TForm1.sSpeedButton1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.sSpeedButton2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.sSpeedButton3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.sSpeedButton4MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.sSpeedButton5MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.sSpeedButton6MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.sSpeedButton7MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
 Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.lbl1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.btn7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.sSpeedButton8MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1MouseMove(Self,[],0,0);
end;

Пепел Феникса · 18.12.2011, 11:41

просто выбрать им всем один обработчик в инспекторе объектов на вкладке события.
причем вам стоит выбрать именно Panel1MouseMove.

chertovich · 18.12.2011, 13:56

либо воспользоваться компонентом TActionList, в котором создать метод, и в свойстве Action панелей выбрать этот метод

18.12.2011, 11:41	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	просто выбрать им всем один обработчик в инспекторе объектов на вкладке события. причем вам стоит выбрать именно Panel1MouseMove. Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

18.12.2011, 13:56	#3
chertovich Форумчанин Регистрация: 26.07.2009 Сообщений: 489	либо воспользоваться компонентом TActionList, в котором создать метод, и в свойстве Action панелей выбрать этот метод Если в глубине души вы программист, то, следуя своим наклонностям, вы захотите написать кусок кода.