Надпись на MDIForm

← →
QUE © (2002-10-24 12:25) [0]

procedure TForm1.FormPaint(Sender: TObject); var r : TRect; begin r := TForm(Sender).Canvas.ClipRect; TForm(Sender).Canvas.FillRect(TForm(Sender).Canvas.ClipRect); TForm(Sender).Canvas.TextOut(r.top-60,r.Bottom-15,"Текст"); end;
При перерисовке она эту надпись рисует в координатах перекрываемой области.
При изменениии размеров делает полосу из надписей ...
Как справиться ?

← →
Игорь Шевченко © (2002-10-24 12:35) [1]

Подробнее описать, где должна быть надпись

← →
QUE © (2002-10-24 12:40) [2]

Если честно не понял, можно объяснить ?

← →
ЮЮ © (2002-10-24 12:49) [3]

Этот обработчик, надеюсь, в MDIForm-е написан, а не в главной?

← →
QUE © (2002-10-24 12:53) [4]

Он написан в главной, но и выводить нужно не в MDIChild, а на поверхности главной формы ....

QUE © (24.10.02 12:53)

В корне неверно.

Всю работы по изменению подложки для MDIChild-форм (насколько я понял, нужно именно это) надо производить с окном MDIForm.ClientHandle, то есть, подменять у него оконную процедуру, обрабатывать ее сообщение WM_ERASEBKGND и так далее...

Вот как ... Понял спасибо ... ОГРОМНОЕ

Надпись на MDIForm Найти похожие ветки