nichts, außer faken ein 2. Form mit dem Bild drüberlegen und im OnResize und Move des 1. Fensters neu positionieren und im Vordergrund halten.
Es sei denn Du willst Dich richtig reingraben....
dann wird aber nur noch dargestellt was Du in Fbackimage reingemalt hast.
Delphi-Quellcode:
exStyle := GetWindowLongA(
handle, GWL_EXSTYLE);
if (exStyle
and WS_EX_LAYERED = 0)
then
SetWindowLong(
handle, GWL_EXSTYLE, exStyle
or WS_EX_LAYERED);
With blendFunc
do
begin
AlphaFormat := 1;
//=AC_SRC_ALPHA;
BlendFlags := 0;
BlendOp := AC_SRC_OVER;
SourceConstantAlpha := 255 - FAlphaValue;
// here you can set Alpha
end;
UpdateLayeredWindow(
Handle,
DC, @DestPoint, @winSize, Fbackimage.Canvas.Handle, @srcPoint,FSheetColor, @blendFunc, 2);
//=ULW_ALPHA
Ich bastle gerade an einem Framework, bei dem sich die Komponenten entsprechend auf dem Mainform darstellen....
http://www.bummisoft.de/download/transtest.zip