Ca ne marche pas, voici mon code:
procedure Tfichetype2.ListQuestionDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
inherited;
with Control as TListBox do with Canvas do
// Dessin du texte en utilisant la fonction API
DrawText(Canvas.Handle,PChar(ListQuestion.Items[Index]),-1,Rect,DT_WORDBREAK);
end;
Ca ne change rien...