Недокументированные возможности?! ;-)

Комментарии

• Georgy

  March 2004 отредактировано 07:10

  TPanel уже добавлена , слелай просто из скрипта вроде

  procedure Test(Sender: TObject);
  begin
    ShowMessage(Sender.ClassName);
  end;
  
  var
    F: TForm;
    P: TPanel;
  begin
    F := TForm.Create(nil);
    try
      P := TPanel.Create(F);
      P.Parent := F;
      P.OnClick := @Test;
      F.OnClick := @Test;
      F.ShowModal;
    finally
      F.Free;
    end;
  end.
  
• Wizdom

  March 2004 отредактировано 07:10

  Хм... у меня версия 1.4 и там вроде бы нет TPanel... хотя дело не в этом...
  Интересен сам подход в реализации...
  
  Правда возникает вопрос, к разработчикам: не откликнется ли мне такая вольность где-нибудь в будущем?
• Georgy

  March 2004 отредактировано 07:10

  To Wizdom:
  Честно говоря какие-то странные проблемы с "находчивостью", хотя все мы бываем Зоркими Соколами... Почему не сделать не мудрствуя поиск в файлах *.pas в папке \Source содержащие строку, например TPanel ?
• AlexTZ

  March 2004 отредактировано 07:10

  юзайте компонент TfsExtCtrlsRTTI (там еще другие компоненты есть