// Der folgende Code überprüft, ob bei einer MDI-Anwendung in der Mainform
// Scrollbars angezeigt werden.


// Getestet mit D4 unter XP

 
function VertScrllbar(Hndl: THandle): boolean; 
begin 
  Result := (GetWindowLong(Hndl, GWL_STYLE) and WS_VSCROLL) <> 0; 
end; 
 
function HorzScrllbar(Hndl: THandle): boolean; 
begin 
  Result := (GetWindowLong(Hndl, GWL_STYLE) and WS_HSCROLL) <> 0; 
end; 
 
 
 
// Beispielaufruf 
 
procedure TMainForm.ToolButton12Click(Sender: TObject); 
var 
  vert, horz: boolean; 
begin 
  vert := VertScrllbar(clienthandle); 
  horz := HorzScrllbar(clienthandle); 
  // z.B.: 
  if vert then showmessage('Vertikale Scrollbar ist sichtbar'); 
end; 



 

Zugriffe seit 6.9.2001 auf Delphi-Ecke