![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос, может, в корне глупый, но все-таки.
The © (2002-09-24 13:28:00)здравствуйте.
сам не знаю, стоит ли спрашивать, но как-то меня заинтересовал вопрос: а возможно ли узнать название процедуры из тела ее самой?
чтобы долго не объяснять, получится должно приблизительно такое
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s:=...; //Какой-то метод, который и возвратит "Button1Click"
ShowMessage(s);
end;
есть такая возможность?
The (2002-09-24 13:42:00) [1]каков вопрос, таков ответ ))
qube (2002-09-24 13:38:00) [2]
> DiamondShark ©
:))
DiamondShark (2002-09-24 13:36:00) [3]Ответ, может, в корне глупый, но все-таки.
Чтобы долго не объяснять, получается приблизительно такое
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s:="TForm1.Button1Click";
ShowMessage(s);
end;
qube (2002-09-24 13:34:00) [4]нет