Как узнать имя события/функции, которое было выполенно в Run Time?

[evg_m]

Например: "Выполнено событие = OnClick". Это возможно сделать?

самый простой вариант. Мы же сами пишем код приведенный Аватаром, так кто нам мешает приписать к выводимой строке и имя прцедуры которое у нас перед глазами, и все другое что нам заблагорассудится, не прибегая к каким-либо ухищрениям.

showmessage((sender as Tcomponent).Name +'.Onclick');
showmessage((sender as Tcomponent).Name +'.OnChange');

Если у вас один обработчик на разные виды событий (OnClick, OnChange) то имя самой процедуры обработчика, все равно не поможет узнать вид события.

[Аватар]

Сделай процедуру с параметрами имя обработчика и Sender и обращайся к ней из обработчиков событий MyProcedure('Button1Click',Sender), а в ней реализуй сохранение данных. Лог предложил решив, что это для отладки нужно. Другого применения не вижу. Тип события? Разве что для каждого типа событий своя процедура, ее имя и определит тип события. Можно влезть в код компонент или переопределить классы, а нужно ли оно?

[artemavd]

Мне кажется, что меня не до конца правильно поняли, что мне нужно . Приведу другой пример. Есть кнопка (Button1). Допустим, что я в Design Time сделал обработчики событий (например в OnClick и OnContextPopup добавил некий код). Мне нужно, что если я нажму на кнопку ЛКМ, то, например, в Label будет написано "Событие=OnClick". Если ПКМ, то в Label будет написано "Событие=OnContextPopup". Мне не нужно код событий получать. Мне нужно получить имя события (процедуры или функции). Заранее неизвестно какое действие будет выполнено кнопкой. Поэтому делать:

showmessage((sender as Tcomponent).Name +'.Onclick');
showmessage((sender as Tcomponent).Name +'.OnChange');

заранее прописывая имена событий нельзя.
Ранее приведенный код тоже сослужит мне службу, но он не решает мою проблему.

[GunSmoker]

Ты их не слушай, ты меня слушай (С)

Ответ на твой вопрос зависит от того, зачем тебе это надо.

Не существует никакого способа узнать имя произвольной процедуры, потому что Delphi - компилируемый язык, а значит, работающий с байтами и указателями, а не символьными именами. Имя процедуры пропадает в момент компиляции программы.

Поэтому ответ на твой зависит от того, какие именно процедуры ты хочешь использовать. Для некоторых имена получить можно. Для остальных надо имена хранить. Делать это можно, опять же, разными способами. А правильный способ зависит от твоей цели.

[alexBlack]

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

Есть кнопка (Button1). Допустим ...

Насколько я понял:

type
  {$METHODINFO ON}
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  {$METHODINFO OFF}

var
  Form3: TForm3;

implementation

{$R *.dfm}

uses ObjAuto;

function GetMethodName(F:TObject; code:pointer):String; forward;

procedure TForm3.Button1Click(Sender: TObject);
begin
//
end;

// ЛКМ
procedure TForm3.Button2Click(Sender: TObject);
begin
   label1.Caption := GetMethodName(Form3, @Button1.OnClick);
end;

function GetMethodName(F:TObject; code:Pointer):String;
var VMT: Pointer;
    MethodInfo: Pointer;
    count : integer;
    P:PMethodInfoHeader;
begin
   result := '';
   VMT := PPointer(F)^;
   while true do begin
      MethodInfo := PPointer(Integer(VMT) + vmtMethodTable)^;
      if MethodInfo <> nil then begin
         Count := PWord(MethodInfo)^;
         Inc(Integer(MethodInfo), 2);
         while Count > 0 do begin
            P := MethodInfo;
            if P.Addr = code then begin
               result := P^.Name;
               exit;
            end;
            Inc(Integer(MethodInfo), PMethodInfoHeader(MethodInfo)^.Len);
            Dec(Count);
         end;
     end;
     // Find the parent VMT
     VMT := PPointer(Integer(VMT) + vmtParent)^;
     if VMT = nil then begin
        Result := '';
        Exit;
     end;
     VMT := PPointer(VMT)^;
   end;
end;

А не. Это только для обработчиков, описанных в этом же классе, то есть не совсем то.