utilisation de l'API SendMessage avec LB_SETHORIZONTALEXTENT et LB_SETVERTICALEX

Question

Qq1 connait comment on utilise l'api SendMessage avec les parametres LB_SETHORIZONTALEXTENT et LB_SETVERTICALEXTENT pour ENLEVE les barre de défillement à un control !!

Merci d'avance

Seedorf

peeweek · Answer

vas voir sur www.allapi.net

cs_chrila · Answer

genre çà:

procedure TFOrm1.HorScrollBar(ListBox: TListBox; MaxWidth: Integer);
var
  i, w: Integer;
begin
  if MaxWidth = 0 then
    SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0)
  else
  begin
    { get largest item }
    for i := 0 to ListBox.Items.Count - 1 do
      with ListBox do
      begin
        w := Canvas.TextWidth(Items[i]);
        if w > MaxWidth then
          MaxWidth := w;
      end;
    SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT,
      MaxWidth + GetSystemMetrics(SM_CXFRAME), 0);
  end;
end;

Utilisation de l'API SendMessage avec LB_SETHORIZONTALEXTENT et LB_SETVERTICALEX

2 réponses