Detecter l'existance des ScollBar

procedure TForm1.Button1Click(Sender: TObject);
//Detecter l'existance des ScollBar par exemple sur un memo
var
WinStyle: HWND;
begin
//Récupérer des informations sur TControl dans la var iable Winstyle
WinStyle := GetWindowLong(memo1.Handle, GWL_STYLE);

//barre verticale
if (WinStyle and WS_VSCROLL) > 1 then
showmessage('Barre verticale visible ');

//barre horizontale
if (WinStyle and WS_HSCROLL) > 1 then
showmessage('Barre horizontale visible ');
end;