Discussion :

[Gaadek]

Bonsoir,

J'aimerais empêcher le redimensionnement d'un ListView...

Pour cela, j'ai pensé que les propriétés MinWidth et MaxWidth des colonnes serait suffisant, mais cela fixe la largeur sans la figer (la différence, c'est qu'on peut toujours modifier la taille des colonnes même si au relachement du clic de la souris elles retrouvent une largeur fixe)

Des idées?

Merci

[Cl@udius]

Salut

1° solution tu masque les en-têtes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  ListView1.ShowColumnHeaders := False;

Bon comme ce n'est pas forcément ce que tu recherches
2° solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
uses CommCtrl;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldWndProc := ListView1.WindowProc;
  ListView1.WindowProc := LvWndProc;
end;
 
procedure TForm1.LvWndProc(var Message: TMessage);
var
  hdn: ^THDNotify;
begin
  if Message.Msg = WM_NOTIFY then
    begin
      hdn := Pointer(Message.lParam);
      if (hdn.hdr.code = HDN_BeginTrackW) or (hdn.hdr.code = HDN_BeginTrackA) then
        Message.Result := 1
      else
        FOldWndProc(Message);
    end
  else
    FOldWndProc(Message);
end;

@+ Claudius

[Cl@udius]

Envoyé par MP

Bonjour.

Je débute dans les ListView...

Je viens d'intégrer votre code dans mon appli mais j'ai des messages d'erreur pour la 1ère ligne du FormCreate:
"Identificateur non déclarer : 'FOldWndProc'" pour FOldWndProc,
"Pas assez de paramètres originaux" pour ListView1.WindowProc.

Un petit coup de main me serait utile...

Il suffit de définir ceci dans la partie interface:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
    procedure LvWndProc(var Message: TMessage);
  private
    { Déclarations privées }
    FOldWndProc: TWndMethod;
  public
    { Déclarations publiques }
  end;

@+ Claudius