Рисование на форме поверх всех компонентов

← →
QuestionX (2004-08-03 01:21) [0]

Собственно как осуществить сабж.

← →
KSergey © (2004-08-03 07:16) [1]

См. последние посты из http://delphimaster.net/view/1-1091397868/&web=1

← →
QuestionX (2004-08-04 18:44) [2]

Посмотрел, вот только как эти посты относятся к сабжу ?

← →
KSergey © (2004-08-04 19:37) [3]

Внимательнее перечитайте по поводу окна поверх всего... И поверьте - это единственный 100% вариант.

← →
QuestionX (2004-08-04 21:10) [4]

> KSergey © (04.08.04 19:37) [3]
> Внимательнее перечитайте по поводу окна поверх всего...
> И поверьте - это единственный 100% вариант.

Возможно я чего - то не понимаю, но как сделать это окно, которое будет поверх всего прозрачным ? Т.е. чтобы компоненты, которые лежат под ним были видны. Стиль WS_EX_TRANSPARENT не помогает. А если вместо TCustomControl (наследника TWinControl) использовать TGraphicControl то он не ресует поверх компонент.

Что я делаю не так, что этот 100% вариант не работает ?

← →
QuestionX (2004-08-04 21:27) [5]

AlphaBlend тоже не подходит - потому как программа должна работать не только под Win2k и выше, но и под Win9X

procedure TForm1.Button1Click(Sender: TObject); var DC : THandle; Canvas : TCanvas; SaveIndex : integer; begin DC := GetWindowDC(Handle); try Canvas := TControlCanvas.Create; with Canvas do try SaveIndex := SaveDC(DC); try Handle := DC; {Рисуем что надо} finally Handle := 0; RestoreDC(DC, SaveIndex); end; finally Canvas.Free; end; finally ReleaseDC(Handle, DC); end; end;

Выдрано из VCL. Не разбирался как, но работает. :)

> [6] Алхимик © (05.08.04 00:11)

Если я ничего не путаю - так нарисует только по одному окну.
В частности, по двум рядом стоящим кнопкам одновременно - нифига, разумеется.

> [4] QuestionX (04.08.04 21:10)

Ну напрячься чтоли лень? ;)

http://z-ol.chat.ru/cmp.htm

TStretchHandles Прозрачный компонент, применяемый для перемещения визуальных элементов формы и изменения их размеров во время работы программы. Во время работы от визуально очень напоминает редактор Delphi

Вот здесь можно посмотреть как умные люди делают ;)

Рисование на форме поверх всех компонентов Найти похожие ветки