Cacher la barre horizontale dans un TListView

TForm1 = class(TForm)
ListView1: TListView;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FListViewWndProc: TWndMethod;
procedure ListViewWndProc( var Message: TMessage);
public
end;

implementation

{$R *.DFM}

procedure TForm1.ListViewWndProc( var Message: TMessage);
begin
ShowScrollBar(ListView1.Handle, SB_HORZ, False); // cacher la barre horizontale
FListViewWndProc(Message); // process message
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListView1.Items[0].Left := 300;
FListViewWndProc := ListView1.WindowProc; // enregistrer l'ancien windows proc.
ListView1.WindowProc := ListViewWndProc; // subclass
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ListView1.WindowProc := FListViewWndProc; // restaurerl'ancien windows proc.
FListViewWndProc := nil;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 934 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