Текущий архив: 2002.11.04;
Скачать: 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 вся ветка
Текущий архив: 2002.11.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
