Здр ув Мастера Делфи помогите если сможите.
Допустим у меня на форме ну 5 панелей
надо написать процедуру (общую для всех панелей) которая меняет
например Caption у той панели на которую юзверь
кликнул(в смысле навел указатель на панель и нажал левую кнопку мышы)
Чтото типа
Procedure ttt;
begin
panel5.Caption:='tttttt';
end;
за ран блог.
Здравствуйте, Balepa, Вы писали:
написать
procedure TMyForm.MyPanelClick(Sender: TObject);
begin
if Sender is TPanel then
TPanel(Sender).Caption = 'tttt';
end;
и не забыть назначить MyPanelClick всем панелям на OnClick
... << RSDN@Home 1.1 beta 2 >>
— сколько программистов надо чтобы заменить сгоревшую лампочку?
— сколько не бери, а лампочку не поменять — проблема аппаратная, программным путем не решается...
Здравствуйте, _MarlboroMan_, Вы писали:
_MM_>Здравствуйте, Balepa, Вы писали:
_MM_>написать
_MM_>_MM_>procedure TMyForm.MyPanelClick(Sender: TObject);
_MM_>begin
_MM_>if Sender is TPanel then
_MM_> TPanel(Sender).Caption = 'tttt';
_MM_>end;
_MM_>
_MM_>и не забыть назначить MyPanelClick всем панелям на OnClick
Я еще не проверил, но в любом случае спасибо что ответили.
Здравствуйте, Balepa, Вы писали:
B>Здр ув Мастера Делфи помогите если сможите.
B>Допустим у меня на форме ну 5 панелей
B>надо написать процедуру (общую для всех панелей) которая меняет
B>например Caption у той панели на которую юзверь
B>кликнул(в смысле навел указатель на панель и нажал левую кнопку мышы)
B>Чтото типа
B>B>Procedure ttt;
B>begin
B>panel5.Caption:='tttttt';
B>end;
B>
B>за ран блог.
на скока я знаю из CBD при вызове OnClick есть параметр TObject Sender который указывает на объект которй его вызвал.
вот от этого и плеши.
В CBD приводишь тип, проверяешь Name и меняешь чего хочешь
