Таскание формы за заголовок

← →
Sam Stone © (2004-04-27 17:46) [0]

Мастера, подскажите, как узнать, что форму таскают за заголовок?

И еще: имеется PaintBox, в котором я рисую. Можно ли сделать так(без перерисовки), чтобы его содержимое не затиралось, если, допустим, поверх этого PaintBox"а вывалится менюшка?

← →
Тимохов © (2004-04-27 17:47) [1]

> И еще: имеется PaintBox, в котором я рисую. Можно ли сделать
> так(без перерисовки), чтобы его содержимое не затиралось,
> если, допустим, поверх этого PaintBox"а вывалится менюшка?

Как вы в нем рисуете? Т.е. из где вы в него рисуете?

← →
Игорь Шевченко © (2004-04-27 17:49) [2]

> Мастера, подскажите, как узнать, что форму таскают за заголовок?

WM_MOVE обрабатывать, например

← →
Sam Stone © (2004-04-27 17:52) [3]

> Как вы в нем рисуете? Т.е. из где вы в него рисуете?

через canvas

> WM_MOVE обрабатывать, например

нельзя ли привести пример?

← →
Amoeba © (2004-04-27 17:56) [4]

Если рисовать в OnPaint (как и полагается рисовать на Canvas PainBox"а), то ничего затираться не должно.

← →
WebErr © (2004-04-27 17:58) [5]

> Sam Stone © (27.04.04 17:52) [3]
>
> > Как вы в нем рисуете? Т.е. из где вы в него рисуете?
>
> через canvas
>

Событие OnPaint этого PaintBox"a.
Рисуйте только там.

> > WM_MOVE обрабатывать, например
>
> нельзя ли привести пример?

в форме:
procedure SomeName(AMessage: TMessage); message WM_MOVE;
в implementation:
procedure SomeName(AMessage: TMessage);
begin
MessageDlg("Hi, I""m rabbit Joe, I""m glag to see you!!!", mtInformation, [mbOk], 0);
end;
8)
Enjoy!

← →
WebErr © (2004-04-27 17:59) [6]

Ой, то есть в implementation:
procedure TForm666.SomeName(...); ...

← →
Тимохов © (2004-04-27 17:59) [7]

> Sam Stone © (27.04.04 17:52) [3]
>
> > Как вы в нем рисуете? Т.е. из где вы в него рисуете?
>
> через canvas

гениальный по трудозатратам ответ.

← →
Gero © (2004-04-27 17:59) [8]

Вместо PaintBox используйте TImage.

> > WM_MOVE обрабатывать, например
> нельзя ли привести пример?

TForm1 = class(TForm)
...
private
procedure WMMove(var Msg : TMessage); message WM_MOVE;
...
end;

...

procedure TForm1.WMMove(var Msg : TMessage);
begin
// Форму таскают
end;

← →
Sam Stone © (2004-04-27 18:00) [9]

Спасибо всем за помощь :)

← →
Amoeba © (2004-04-27 18:00) [10]

> Вместо PaintBox используйте TImage

Это далеко не всегда лучшее решение.

← →
WebErr © (2004-04-27 18:06) [11]

> Amoeba © (27.04.04 18:00) [10]

Я бы даже сказал, непонятно, как вообще можно заменить TPaintBox на TImage...

TImage.Picture.Bitmap? А зачем, когда есть PaintBox?
Если уж работать с битмапой, то Draw её через PaintBox.Canvas. Это лично моё мнение (ИМХО, кажется...).

> А зачем, когда есть PaintBox?

Цитирую:
> чтобы его содержимое не затиралось, если, допустим, поверх
> этого PaintBox"а вывалится менюшка

Таскание формы за заголовок Найти похожие ветки