Форум: "Основная";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Вниз
Как напрвить действие на группу элементов? Найти похожие ветки
← →
kyn66 © (2006-03-13 11:01) [0]Доброго времени суток, мастера! У меня на форме лежит 10 панелей. У всех их один обработчик события onClick и разборка идет в зависимости от того, какой Caption или Tag у панели. Как мне выполнить перенапрвление на это событие из другого места? К примеру так:
procedure TMainFrm.Panel1Click(Sender: TObject);
begin
with (Sender as TPanel) do
begin
if BorderStyle = bsNone then
begin
BorderStyle := bsSingle;
Font.Style := [fsBold];
Font.Color := clRed;
end
else
begin
BorderStyle := bsNone;
Font.Style := [];
Font.Color := clBlack;
end;
end;
end;
и нужно вот что
procedure TMainFrm.Button1Click(Sender: TObject);
begin
TPanel(FindComponent("Panel" + Edit1.Text)).CLick; << ???????
TPanel(FindComponent("Panel" + Edit1.Text)).onCLick(???????);
end;
← →
Плохиш © (2006-03-13 11:04) [1]Panel1Click(FindComponent("Panel" + Edit1.Text));
← →
Чапаев © (2006-03-13 11:04) [2]
> TPanel(FindComponent("Panel" + Edit1.Text)).onCLick(????
> ???);
TPanel(FindComponent("Panel" + Edit1.Text)).onCLick(FindComponent("Panel" + Edit1.Text));
← →
kyn66 © (2006-03-13 11:18) [3]2 Плохиш
Ай спасибо ! Молодца ! Млин... и че все кругом такие умные, один я .... 8-)
Всем спасибо, проблема решена ! 8-)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.039 c
