| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Надпись на MDIForm
QUE © (2002-10-24 12:25:00)
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;
При перерисовке она эту надпись рисует в координатах перекрываемой области.
При изменениии размеров делает полосу из надписей ...
Как справиться ?
QUE (2002-10-24 13:10:00) [1]Вот как ... Понял спасибо ... ОГРОМНОЕ
Игорь Шевченко (2002-10-24 13:06:00) [2]QUE © (24.10.02 12:53)
В корне неверно.
Всю работы по изменению подложки для MDIChild-форм (насколько я понял, нужно именно это) надо производить с окном MDIForm.ClientHandle, то есть, подменять у него оконную процедуру, обрабатывать ее сообщение WM_ERASEBKGND и так далее...
QUE (2002-10-24 12:53:00) [3]Он написан в главной, но и выводить нужно не в MDIChild, а на поверхности главной формы ....
ЮЮ (2002-10-24 12:49:00) [4]Этот обработчик, надеюсь, в MDIForm-е написан, а не в главной?
QUE (2002-10-24 12:40:00) [5]Если честно не понял, можно объяснить ?
Игорь Шевченко (2002-10-24 12:35:00) [6]Подробнее описать, где должна быть надпись
| |
