"Прозрачная" Программа

[zwook]

Возможно ли в дельфи сделать программу которая рисует что либо (в моем случае параболу) поверх всех окон, при этом фон должен быть прозрачный. Саму программу я написать могу но вот как сделать так, чтобы фон был прозрачный и поверх всех действующих окон незнаю

Для тех кто не понял вопроса, программа должна рисовать линию которая изображатеся поверх действующего окна. При этом все то, что за периметром этой линией должно быть прозрачным т.е. просвечивать действующее окно.

[eoln]

Рисует простую прямую. Параболу можно построить по нескольким малым отрезкам.

procedure TForm1.Button1Click(Sender: TObject);
var
  desk: tcanvas;
begin
  desk := tcanvas.create;
  desk.handle := getdc(hwnd_desktop);
  desk.MoveTo(100, 100);
  desk.LineTo(300,300);
  releasedc(desk.handle, hwnd_desktop);
  desk.free
end;

desk - обычная канва, можно изменить цвет, толщину линии и т.д.

[BOBAH13]

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE); // поместим на верх
// допустим BMP: TBITMAP с PixelFormat = pf32bit и вы он заполнен нулям
// теперь нарисуите на нем параболу и к ее цвета в альфа канале 255 - полная не прозрачность
// теперь
UpdateLayeredWindow(Handle, 0, @ZTopLeft, @ZSize, BMP.Canvas.Handle, @ZPoint, 0, @ZBF, ULW_ALPHA);

ну переменные сами разберете.. а при создании окна у которого Handle указан.. пишите SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);

P.s. писал все коды и слова прямо тут так что если что подкорректируите сами.

[zwook]

Сообщение от BOBAH13

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE); // поместим на верх
// допустим BMP: TBITMAP с PixelFormat = pf32bit и вы он заполнен нулям
// теперь нарисуите на нем параболу и к ее цвета в альфа канале 255 - полная не прозрачность
// теперь
UpdateLayeredWindow(Handle, 0, @ZTopLeft, @ZSize, BMP.Canvas.Handle, @ZPoint, 0, @ZBF, ULW_ALPHA);

ну переменные сами разберете.. а при создании окна у которого Handle указан.. пишите SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);

P.s. писал все коды и слова прямо тут так что если что подкорректируите сами.

Огромное спасибо! =)