Utiliser les flèches pour monter/descendre la ScrollBar

{Placer dans un TScrollBox une grande image en autosize:=true}

private
{ Déclarations privées }
procedure CMDialogKey( var Msg: TCMDialogKey); message CM_DIALOGKEY;
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.CMDialogkey;
begin
with Scrollbox1.VertScrollBar do
begin
case Msg.CharCode of
// Delphi takes care of Position < 0 or Position > Range
VK_DOWN: Position := Position + Increment; // down arrow key
VK_Up: Position := Position - Increment; // up arrow key
else
inherited;
end;
end;
end;
end.
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour08/05/2002
VisualisationVu 935 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