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;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour15/02/2005
VisualisationVu 1135 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur