Mega Code Archive

 

Categories / Delphi / Forms

 

How to determine whether a window is topmost

Title: How to determine whether a window is topmost function IsWindowTopMost(hWindow: HWND): Boolean; begin Result := (GetWindowLong(hWindow, GWL_EXSTYLE) and WS_EX_TOPMOST) 0 end; procedure TForm1.Button1Click(Sender: TObject); begin if isWindowTopMost(FindWindow('notepad', nil)) then Label1.Caption := 'Window ist topmost' else Label1.Caption := 'Window ist not topmost'; end;