Скачать: CL | DM;

Надпись на 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, а на поверхности главной формы ....

---

← →
Игорь Шевченко ©   (2002-10-24 13:06) [5]

QUE © (24.10.02 12:53)

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

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

---

← →
QUE ©   (2002-10-24 13:10) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c