Discussion :

[lassmust]

salut tout le monde
je n'arrive pas rendre ma dBGRID multiline
excuser mon ignorance

[Rayek]

Options - > dgMultiselect à true

[lassmust]

je crois que vous mavez pas compris
exemple j'ai un champs texte tres long mais dans ma dBGRID je ne veut pas faire un resize dans la colone je veut faire comme execel lorsque il renvois a ligne automatiquement

[Giovanny Temgoua]

Bonjour,

Une solution (à tester) serait d'intercepter (dans l'évènement OnKEYDOWN) l'appui sur la touche ENTER puis au lieu de valider les données (comportement par défaut), ajouter #13#10 au contenu du mémo (#13#10 c'est pour aller à la ligne).

[mico2]

Je pense que tu dois pouvoir obtenir ce que tu désires en dessinant toi-même le contenu de la colonne en cause.
Dans l'évenement OnDrawColumnCell il te suffit de tester le numéro de colonne puis d'afficher le contenu de la case en utilisant la procédure DrawText . En mettant la valeur Dt_Wordbreak dans le format d'affichage.

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
 
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
 Var 
      S:String; // ta chaine à afficher
      F:Integer; // le format d'affichage
begin
If Column=NumDeColonneSouhaite then
    begin
    Canvas.Brush.Color:=clWhite; // A toi de choisir la couleur
    Canvas.fillrect(Rect); // pour effacer le fond 
    S:=Column.Field.DisplayText;
    F:=ord(Column.Alignment);
    If F>0 Then F:=F Xor 3; // ajustage automatique de l'alignement
    F:=F+dt_Wordbreak;     
    Drawtext(Grille.canvas.Handle,Pchar(S),Length(S),Rect,F);
    end;
end;

La procedure Drawtext est mal renseignée dans Delphi. Toutes les options d'affichage sont définies dans la valeur qui défini le format (ici la variable F). Il te faudra peut-être ajouter d'autres valeurs à F pour obtenir un résultat impeccable.

Pour de plus amples renseignements voir ici :

http://<br /> http://msdn.microsoft...text.asp<br />