Как добавить метод/событие в уже созданный класс?

Комментарии

• Georgy

  March 2004 отредактировано 06:59

  Видимо, есть как добавлять написано в доке, но ты наверно и сам разобрался, раз полез в исходники - это хорошо . А вот править их ИМХО не есть хорошо - я делаю модули-прослойки и в них добавляю функциональность, и проблем с обновлением не возникает.
  В модуль-прослойку добавляем:

   with fsGlobalUnit.FindClass('TComboBox') do
    begin
      AddEvent('OnClick', TfsNotifyEvent);
    end;
  

  Запускаем, скрипт:

  procedure Test(Sender: TObject);
  begin
    ShowMessage(Sender.ClassName);
  end;
    
  var
    F: TForm;
    C: TComboBox;
  begin
    F := TForm.Create(nil);
    try
      C := TComboBox.Create(F);
      C.Parent := F;
      C.Items.Add('Item');
      C.ItemIndex := 0;
      C.OnClick := @Test;
      F.OnClick := @Test;
      F.ShowModal;
    finally
      F.Free;
    end;
  end.
  

  Работает...
  
• AlexTZ

  March 2004 отредактировано 06:59

  OnClick есть у всех контролов, а вот OnChange/OnCloseUp добавлю в след. релизе...
• Georgy

  March 2004 отредактировано 06:59

  Да, это от водки, это пройдет OnClick уже есть и ничего добавлять не нужно было, просто надо было заполнить ComboBox.Items и уж потом кликать на список 8-)
• Wizdom

  March 2004 отредактировано 06:59

  Спасибо, что просветили про FindClass, как я его сам не нашел.?!.
  

  написал:

  А вот править их ИМХО не есть хорошо - я делаю модули-прослойки и в них добавляю функциональность, и проблем с обновлением не возникает.

  
  Я тоже так делаю, поэтому и возник вопрос. Что называется нутром почувствовал, что делаю не так как надо...
  
  Попутно возник еще один вопрос:
  А как проверить, может этот метод в классе уже описан? Не привидет ли это к скрытым ошибкам..? (Как я понимаю, мы сталкнемня с этим, когда появится новая версия FS, т.к. она явно расширится).
• Georgy

  March 2004 отредактировано 06:59

  Hi, Wizdom!
  Если я правильно понял:
  1.есть модуль-обертка fs_xxx.pas
  2.есть наша надстройка my_xxx.pas c какими-то добавлениями.
  Мы получаем обновленный fs_xxx.pas - как проверить на наличие/отстутствие конфликтов с нашей надстройкой my_xxx.pas?
  ИМХО руками и глазами, заодно лишний раз просмотреть исходник, может найдется еще что полезное (вроде FindClass )
  
• Wizdom

  March 2004 отредактировано 06:59

  написал:

  ...ИМХО руками и глазами, заодно лишний раз просмотреть исходник...

  Хм... интересный ты предлагаешь подход - проверка глазами..
  Исходники бесспорно проссматривать нужно, с этим споров нет, но как на счет человеческого фактора?
  ИМХО, сусанин, не туда ты меня повел... Я отказываюсь все проверять глазами... не те времена...
  
  Предлагаю внести в ФС небольшое улучшение: при вызове методов AddClass, AddMethod или AddEvent (ну, и всех остальных Addxxx) чтобы сначала шла проверка, а есть ли такой класс/метод/событие/ххх, если нет, то добавлять, нет - тихо молчать (в крайнем случае, выдавать сообщение нефатальное)...
  
  Если же ничего страшного в повторном объявлении нет, то и фиг с ним...