Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3629345 Tue, 13 Oct 2015 07:01:06 +0000 Имя события на собственной форме наследнике от TCustomForm https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3629345 Fr0sT Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3628149 Mon, 05 Oct 2015 11:26:48 +0000 Имя события на собственной форме наследнике от TCustomForm https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3628149
Цитата cboss @
Такое решение неприемлемо в КОММЕРЧЕСКОМ КОДЕ.

А как правильно?]]> user89 Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3628142 Mon, 05 Oct 2015 11:08:29 +0000 Имя события на собственной форме наследнике от TCustomForm https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3628142 cboss Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3611367 Tue, 07 Jul 2015 16:39:12 +0000 Имя события на собственной форме наследнике от TCustomForm https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3611367
    procedure Register;
      procedure RegMethodProperty(Comp: TComponentClass);
      var
        PropList: PPropList;
        i: integer;
      begin
        i := 0;
        PropList := AllocMem(SizeOf(PropList^));
        try
          GetPropList(Comp.ClassInfo, [tkMethod], PropList);
          while (PropList^[i] <> nil) and (i < High(PropList^)) do
          begin
        RegisterPropertyEditor(PropList^[i].PropType^, Comp, '', TisFormMethodProperty);
            Inc(i);
          end;
        finally
          FreeMem(PropList);
        end;
      end;
    begin
      RegisterCustomModule(TMyBestForm, TCustomModule);
      RegMethodProperty(TMyBestForm);
    end;


Спасибо Вам, о, великий гуру, DimaBr!!! Сделаю себе наколку с вашим именем :D ;)]]> G-Host Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3611345 Tue, 07 Jul 2015 14:29:06 +0000 Имя события на собственной форме наследнике от TCustomForm https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3611345 Цитата DimaBr @
Переопределите GetFormMethodName и будет вам счастье

Сделал... Переписал... Счастье уже близко... :D :D :D
а как зарегистрировать, то есть чем?
    RegisterPropertyEditor(TypeInfo(????), TMyBestForm, '', TMyBestFormMethodProperty);

тут проблема...
или
    RegisterComponentEditor(TMyBestForm, TMyBestFormMethodProperty);

и тут проблема...

Добавлено
вроде понял:
    RegisterPropertyEditor(TypeInfo(TNotifyEvent), TMyBestForm, '', TMyBestFormMethodProperty);

а если, к примеру в форме есть другие методы (собственные)? для всех остальных, для каждого? или можно как-то общё(для всех методов сразу)?]]> G-Host Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3611285 Tue, 07 Jul 2015 10:40:51 +0000 Имя события на собственной форме наследнике от TCustomForm https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3611285
    procedure TMethodProperty.Edit;
    var
      FormMethodName: string;
      CurDesigner: IDesigner;
    begin
      CurDesigner := Designer; { Local property so if designer is nil'ed out, no AV will happen }
      if not AllNamed then
        raise EDesignPropertyError.CreateRes(@SCannotCreateName);
      FormMethodName := GetValue;
      if (FormMethodName = '') or
        CurDesigner.MethodFromAncestor(GetMethodValue) then
      begin
        if FormMethodName = '' then
          FormMethodName := GetFormMethodName;
        if FormMethodName = '' then
          raise EDesignPropertyError.CreateRes(@SCannotCreateName);
        SetValue(FormMethodName);
      end;
      CurDesigner.ShowMethod(FormMethodName);
    end;

и выясняем что текст берётся из FormMethodName
    function TMethodProperty.GetFormMethodName: string;
    var
      I: Integer;
    begin
      if GetComponent(0) = Designer.GetRoot then
      begin
        Result := Designer.GetRootClassName; // вот возвращается класс ФОРМЫ
        if (Result <> '') and (Result[1] = 'T') then
          Delete(Result, 1, 1);
      end
      else
      begin
        Result := Designer.GetObjectName(GetComponent(0));
        for I := Length(Result) downto 1 do
          if Result[I] in ['.', '[', ']', '-', '>'] then
            Delete(Result, I, 1);
      end;
      if Result = '' then
        raise EDesignPropertyError.CreateRes(@SCannotCreateName);
      Result := Result + GetTrimmedEventName;
    end;


Переопределите GetFormMethodName и будет вам счастье]]> DimaBr Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3611256 Tue, 07 Jul 2015 09:41:15 +0000 Имя события на собственной форме наследнике от TCustomForm https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3611256 G-Host Delphi: Разработка компонентов https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3610969 Mon, 06 Jul 2015 11:14:04 +0000 Имя события на собственной форме наследнике от TCustomForm https://forum.sources.ru/index.php?showtopic=403855&view=findpost&p=3610969
Вот к примеру создал я TMyBestForm наследника от TCustomForm, зарегистрировал честь по чести, всё ОК!
    type
      TMyBestForm1 = class(TMyBestForm)
      end;
    ...

И вот в наследнике я назначаю метод OnCreate, и он прописывается так:
    ...
    procedure TMyBestForm1.MyBestFormCreate(Sender: TObject);
    begin
      inherited;
     
    end;

А нужно, чтоб так:
    ...
    procedure TMyBestForm1.FormCreate(Sender: TObject);
    begin
      inherited;
     
    end;


Кто знает?!! - подскажите, как это реализовать...


Премного благодарен! :rolleyes:]]> G-Host Delphi: Разработка компонентов