хитроback'й Delphi

[GunSmoker]

но все-таки интересно, почему так происходит?
почему стандартные компоненты не хотят реагировать на мои изменения?

Потому что папка \Lib с .dcu лежит в путях поиска компилятора, и папка \Source с .pas - нет.

[GunSmoker]

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

требования:
1. кидать на форму с помощью MyComponent.Create(Form1).
2. возможность создать несколько таких компонентов (все должны работать).
3. они могут не знать друг о друге.

какие будут идеи?
от чего будете наследоваться?

Такой компонент уже есть TApplicationEvents (вкладка Additional).

Если аналогичная функциональность нужна в моём компоненте - я просто воспользуюсь агрегацией (композицией).

а уж версию делфи я врят-ли сменю. уж больно она мне нравится.
у меня Delphi 10 lite. минус в том что в ней нету 80% компонентов, которые есть например в делфи7,

Сначала строим себе заборы, а потом сами же героически их преодолеваем. Чего бы не поставить нормальную версию со всеми компонентами?

допустим вы кидаете на форму две кнопки.
каждая из них должна будет изменять свое положение исходя из размеров формы.

Откройте для себя якоря (Anchors) или хотя бы код, специально предназначенный для контроля размеров:

    procedure AdjustClientRect(var Rect: TRect); virtual;
    procedure AdjustSize; override;
    procedure AlignControls(AControl: TControl; var Rect: TRect); virtual;
    procedure ArrangeControl(AControl: TControl; const ParentSize: TPoint; AAlign: TAlign;
      AAlignInfo: TAlignInfo; var Rect: TRect; UpdateAnchorOrigin: Boolean = False);
    function CanAutoSize(var NewWidth, NewHeight: Integer): Boolean; override;
    function CanResize(var NewWidth, NewHeight: Integer): Boolean; override;
    procedure ConstrainedResize(var MinWidth, MinHeight, MaxWidth,
      MaxHeight: Integer); override;
    procedure RequestAlign; override;
    procedure UpdateControlOriginalParentSize(AControl: TControl; var AOriginalParentSize: TPoint); virtual;

что вы об этом думаете?

Что это неправильно.

Наводящий вопрос: вот мне надо использовать два компонента в проекте. Один использует модифицированную вами VCL. Второй компонент - модифицированную VCL дяди Васи. И что теперь?

Расширение компонентов делать надо по правилам ООП - наследованием, агрегацией.

[xrob]

"И что теперь?"
Наводящий ответ: пишите на asm =)
а если серьезно, то у вас пока нет модифицированной нами VCL, так что вам не о чем беспокоиться.

"Такой компонент уже есть" ага! в делфи как я посмотрю вообще много чего "уже есть"...
вот только по моему опыту проще сделать свое, чем копаться в чужом, особенно если оно работает через-back.
кстати как оно работает? глянул тут что такое TApplicationEvents (оказывается он у меня есть о_О)...
в нем есть OnMessage, ну и что? создавать его для каждого своего компонента?
хотяя, если это будет работать, и будет хорошим тоном, то может это и заменит модификацию TApplication.
но если и так, то я хоть поизвращался немного... удовлетворил естественные потребности так сказать.

"Сначала строим себе заборы"
GunSmoker, в точку! =)
всей этой хренью я страдаю из спортивного интереса!
считайте что у меня хобби такое - изобретать велосипеды.

"Откройте для себя Anchors"
якоря мне не помогут =(
как мы уже знаем, мне немножко не по себе при использовании
стандартных компонентов, особенно если я не знаю как они работают.

"Чего бы не поставить нормальную версию со всеми компонентами?"
нет возможности сворачивать код процедуры/функции.
как без этого можно работать я не представляю...

[JTG]

Если очень уж нужно влезть в логику работы компонента без создания нового, можно заюзать класс-перехватчик (interceptor class), хотя по сути это "наследование самого себя"

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TButton = class(StdCtrls.TButton)
  public
     procedure Click; override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TButton.Click;
begin
  inherited Click;
  ShowMessage('Йа кнопко ' + Caption);
end;

end.

В 2007 появились class helpers

type
  TButtonHelper = class helper for TButton
    procedure Click;
  end;

   ...

  procedure TButtonHelper.Click;
  begin
    ShowMessage('Йа кнопко ' + Caption);
  end;

[Пепел Феникса]

так что такой вариант будет работать не более чем с двумя процедурами... а если их всего три?

сколько угодно.

стандартных компонентов, особенно если я не знаю как они работают.

сорцы открыты, да и якоря вполне просто работают, держат расстояние до выбраной границы родителя.

[xrob]

"TButton = class(StdCtrls.TButton)"
ого, не знал что так можно делать =)

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

[Пепел Феникса]

там получается по типу списка идет.
по такому же принципу кстати и в ссылке, и там без разницы сколько и чего применит этот метод.
принцип такой, изначально был обработчик у Forn1 от TForm
1)далее TRCButton заменяет его своим, запоминая старый.
имеем Form1-(использует)>TRCButton, RCButton1-(помнит)>TForm
при сообщении выходит так TRCButton->TForm
2)далее TCoolTrayIcon(к примеру) заменяет текущий обработчик Form1 своим, запоминая старый.
имеем Form1-(юзает)>TCoolTrayIcon, CoolTrayIcon1-(помнит)>TRCButton, RCButton1-(помнит)>TForm
при сообщении выходит так: TCoolTrayIcon->TRCButton->TForm.
и тд.