Delphi – Prekrivanje radnog prostora

Nekada će vam zatrebati da prozor vaše aplikacije prekrije sve ostale prozore (drugih aplikacija), osim Taskbar-a. Da bi vaša aplikacija prekrila sve ostale objekte na radnoj površini potrebno je da procesirate WM_SETTINGCHANGE Windows poruku i da iskoristite API funkciju – SystemParametersInfo. Koristeći ovu tehniku bićete u mogućnosti da prekrijete sve ostale objekte, ostim Taskbar-a, MS Office palete alatki i sličnih paleta:

MojaForma=class(TForm)

procedure FormCreate(Sender: TObject);

………….

private

……

procedure WMSettingChange(var Msg: TMessage);

message WM_SETTINGCHANGE;

………..

protected

……..

end;

implementation



// informacija o dostupnom radnom prostoru

function GetWindowsWorkArea: TRect;

begin

      SystemParametersInfo(SPI_GETWORKAREA, 0, @Result, 0);

end;
……….

//odgovor na svaku promenu velicine

//radnog prostora tokom runtime-a

procedure MojaForma.WMSettingChange(var Msg: TMessage);

var

R: TRect;

begin

   if (Msg.WParam=SPI_SETWORKAREA) then

        begin

          R:=GetWindowsWorkArea;

          SetBounds(R.Left, R.Top,

          R.Right-R.Left, R.Bottom-R.Top);

        end;

   Msg.Result:=0;

end;
//u okviru dogadjaja OnFormCreate

//dobijamo velicinu radnog prostora,

//posto vasa forma nece dobiti

//podataka WM_SETTINGCHANGE na startup-u

procedure MojaForma.FormCreate(Sender: TObject);

var

R: TRect;

begin

     R:=GetWindowsWorkArea;

     SetBounds(R.Left, R.Top,

     R.Right-R.Left, R.Bottom-R.Top);

end;

Pratite Krstaricu na www.krstarica.com