Событие на отрисовку формы.

[Аватар]

А зачем такой нетривиальный способ использования невизуального компонента на стадии проектирования? Что компонент должен делать во время выполнения?

[dmitriegorovih]

А зачем такой нетривиальный способ использования невизуального компонента на стадии проектирования? Что компонент должен делать во время выполнения?

Он должен нарисовать картинку на форме но так чтобы картинку нельзя было выбрать и что-бы по нажатию на эту картинку не перенаправляло на компонент

[Человек_Борща]

Невозможно. Это противоречит правилам disign-time т.к. он позволяет перемещать обькты, не зависимо от того, хотите вы этого или нет.


И вот вопрос:

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

У IDE есть мозги он знает где рисовать картинку, не зная ращмеров рартанки, и рамеров форм?

[Аватар]

Делайте на базе TImage, картинка спокойно отобразиться, выбрать нельзя, поскольку фокус не получает, OnClick не делайте и не будет ни какой реакции на нажатие картинки

[dmitriegorovih]

Делайте на базе TImage, картинка спокойно отобразиться, выбрать нельзя, поскольку фокус не получает, OnClick не делайте и не будет ни какой реакции на нажатие картинки

Это как? Вроде бы будет пунктирная линия?

[Аватар]

Вроде бы будет пунктирная линия

Чем мешает пунктирная линия в среде разработки? При выполнении ее не будет, а чтобы фона не было делайте его прозрачным.

[dmitriegorovih]

есть некоторые просветления в этой проблеме она ещё не решена но на подходе
в общем кое как работает ))))

private
    { Private declarations }
wndp:TWndMethod;
    procedure ppp (var Message: TMessage);
...
constructor TWindow1.Create(AOwner: Tcomponent);
begin
  inherited Create(AOwner);
  wndp:=TWINControl(AOwner).WindowProc;
  TWINControl(AOwner).WindowProc:=ppp;
end;

procedure TWindow1.ppp(var Message: TMessage);
begin
 if Message.Msg=WM_Paint then begin
 paint;
 end;
 wndp(Message);
end;

Но теперь он рисуется по верх всех объектов (((

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

если уж надо рисоваться то проще и наследуйтесь от визуального класса(например TGraphicControl).
и там переопределите нужный метод(Paint) и рисуйтесь(чтоб определить что вы находитесь в design-time то просто ставите проверку

if csDesigning in ComponentState then

).

TGraphicControl это предок TImage со всеми вытекающими.

[dmitriegorovih]

TGraphicControl это предок TImage со всеми вытекающими.

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

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

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

кто растянется?
что надо то, можете обьяснить желательно с примером схемкой/картинкой.

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