Оптимизация кода

[LatuSerge]

Есть довольно некрасивый код, потому что вовсю используется копипаст. Очень хотелось бы узнать как можно было бы автоматизировать этот процесс. Что то типа к этому виду или другому удобному:
Пример:
For i:=1 to 28 do begin
(FindComponent('KeyLabel'+IntToStr( i)) as TLabel).Visible:=False;
end;

А вот сам кусочек кода для оптимизации:

procedure TForm2.ProgramLabel1MouseEnter(Send er: TObject);
begin
ProgramLabel1.Font.Style:=[fsBold];
end;

procedure TForm2.ProgramLabel1MouseLeave(Send er: TObject);
begin
ProgramLabel1.Font.Style:=[];
end;

procedure TForm2.ProgramLabel2MouseEnter(Send er: TObject);
begin
ProgramLabel2.Font.Style:=[fsBold];
end;

procedure TForm2.ProgramLabel2MouseLeave(Send er: TObject);
begin
ProgramLabel2.Font.Style:=[];
end;

procedure TForm2.ProgramLabel3MouseEnter(Send er: TObject);
begin
ProgramLabel3.Font.Style:=[fsBold];
end;

procedure TForm2.ProgramLabel3MouseLeave(Send er: TObject);
begin
ProgramLabel3.Font.Style:=[];
end;

procedure TForm2.ProgramLabel6MouseEnter(Send er: TObject);
begin
ProgramLabel6.Font.Style:=[fsBold];
end;

procedure TForm2.ProgramLabel6MouseLeave(Send er: TObject);
begin
ProgramLabel6.Font.Style:=[];
end;

procedure TForm2.ProgramLabel4MouseEnter(Send er: TObject);
begin
ProgramLabel4.Font.Style:=[fsBold];
end;

procedure TForm2.ProgramLabel4MouseLeave(Send er: TObject);
begin
ProgramLabel4.Font.Style:=[];
end;

procedure TForm2.ProgramLabel5MouseEnter(Send er: TObject);
begin
ProgramLabel5.Font.Style:=[fsBold];
end;

procedure TForm2.ProgramLabel5MouseLeave(Send er: TObject);
begin
ProgramLabel5.Font.Style:=[];
end;

procedure TForm2.ProgramLabel7MouseEnter(Send er: TObject);
begin
ProgramLabel7.Font.Style:=[fsBold];
end;

procedure TForm2.ProgramLabel7MouseLeave(Send er: TObject);
begin
ProgramLabel7.Font.Style:=[];

[Пепел Феникса]

назначить всем лейблам один обработчик, а доступ к лейблу вызвавшему событие получать доступ через Sender.
пример

(Sender as TLabel).Font.Style:=[fsBold];

[LatuSerge]

Спасибо) А можешь в примере описать твой способ? Просто я с таким еще не сталкивался, а узнать очень интересно))

[Пепел Феникса]

я привел пример кода.
а назначение одного обработчика это выбрать в инспекторе объектов этот обработчик(прописать только один из них)
или выделить все лейблы и выбрать обработчик к ним(всем сразу)

[LatuSerge]

Ах..Точно))) Большое спасибо)))) Пошел оптимизировать код)))

[LatuSerge]

А вот похожий код который не получается оптимизировать((


procedure TForm2.ProgramLabel1Click(Sender: TObject);
begin
NotebookPrograms1.PageIndex:=2;
end;

procedure TForm2.ProgramLabel2Click(Sender: TObject);
begin
NotebookPrograms1.PageIndex:=3;
end;

procedure TForm2.ProgramLabel3Click(Sender: TObject);
begin
NotebookPrograms1.PageIndex:=4;
end;

procedure TForm2.ProgramLabel4Click(Sender: TObject);
begin
NotebookPrograms1.PageIndex:=5;
end;

procedure TForm2.ProgramLabel5Click(Sender: TObject);
begin
NotebookPrograms1.PageIndex:=6;
end;

procedure TForm2.ProgramLabel6Click(Sender: TObject);
begin
NotebookPrograms1.PageIndex:=7;
end;

procedure TForm2.ProgramLabel7Click(Sender: TObject);
begin
NotebookPrograms1.PageIndex:=8;
end;

procedure TForm2.ProgramLabel8Click(Sender: TObject);
begin
NotebookPrograms1.PageIndex:=9;
end;

procedure TForm2.ProgramLabel9Click(Sender: TObject);
begin
NotebookPrograms1.PageIndex:=10;
end;

[LatuSerge]

Просто сдесь каждый Label ведет на определенную страницу Notebook и я не знаю как можно было бы оптимизировать такой код

[veniside]

NotebookPrograms1.PageIndex := (Sender as TLabel).Tag;

[LatuSerge]

Большое Спасибо!!!!! Вообще шикарно)))) Пожалуй мне надо выучить Sender и Tag)))

[kettanaito]

Или как вариант создай свою функцию/процедуру.

procedure TForm2.SetNoteBookIndex(Index:Integer);
begin
NotebookPrograms1.PageIndex:=Index;
end;

procedure TForm2.ProgramLabel9Click(Sender: TObject);
begin
SetNotebookIndex(10);
end;

На случай если в качестве Sender не всегда бывает TLabel.