несколько Label'ов в качестве кнопок

[skalt12]

Сообщение от DIgorevich

Конечно не то...

procedure PressedLabels(Sender: TObject);

Надо объявить в разделе Public. Вставить там эту строку и нажать CTRL+SHIFT+C. Система сама создаст процедуру и в нее вставляешь уже этот код:

 mon.Font.Style := mon.Font.Style - [fsBold];
 tue.Font.Style := tue.Font.Style - [fsBold];
 wed.Font.Style := wed.Font.Style - [fsBold];
 thu.Font.Style := thu.Font.Style - [fsBold];
 fri.Font.Style := fri.Font.Style - [fsBold];
 sat.Font.Style := sat.Font.Style - [fsBold];
 sun.Font.Style := sun.Font.Style - [fsBold];
 (sender as TLabel).Font.Style := (sender as TLabel).Font.Style + [fsBold];

БЕЗ ВСЯКИХ var mon, tue, wed, thu, fri, sat, sun: TLabel;

Вот ведь... Это-то, вообще, из головы выпало..все, с АРБ пора завязывать )

И я не увидел в коде обработчика нажатий на лейблы...

procedure TsubtableWin.MonClick(Sender: TObject);
begin
  PressedLabels(mon);

end;

это?

Спасибо, мужики!

[DIgorevich]

Сообщение от skalt12

Вот ведь... Это-то, вообще, из головы выпало..все, с АРБ пора завязывать )




procedure TsubtableWin.MonClick(Sender: TObject);
begin
PressedLabels(mon);

end
это?

Спасибо, мужики!

Не совсем то... Выделяешь на форме все нужные лейблы. В редакторе свойств (вкладка Events) выбираешь он клик: MonClick. а в коде пишешь:

procedure TsubtableWin.MonClick(Sender: TObject);
begin
  PressedLabels(sender);
end;

И тогда по нажатию на ЛЮБОЙ лейбл будет проходить эта процедура. А Sender - это указатель компилятору на объект по которому было действие...

[skalt12]

Сообщение от DIgorevich

Не совсем то... Выделяешь на форме все нужные лейблы. В редакторе свойств (вкладка Events) выбираешь он клик: MonClick. а в коде пишешь:

procedure TsubtableWin.MonClick(Sender: TObject);
begin
  PressedLabels(sender);
end;

И тогда по нажатию на ЛЮБОЙ лейбл будет проходить эта процедура. А Sender - это указатель компилятору на объект по которому было действие...

А.. это-то понятно.. это я сделал.. спасибо.. просто, выше, в коде, я на одном эксперементировал