Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
10 - LABELS ET BOUTONS MULTILIGNES

PRÉSENTATION : Un truc tout simple pour créer des boutons et des labels sur plusieurs lignes au moment de la conception.
ZIP : -Pas de zip- APERÇUS : -1.jpg-

NOTES : Voici la méthode à suivre :
- Faire un click droit sur la fiche.
- Choisir "Voir comme texte".
- Chercher le composant dont vous voulez modifier le caption.
- Modifier la propriété Caption comme indiqué ci-dessous dans le code en ajoutant des #13 ( caractère retour chariot ).
- Faire de nouveau un click droit.
- Choisir "Voir comme fiche".

Cette méthode ne fonctionne pas avec TButton ou TEdit.

CODE :
// Source du fichier .DFM
Object Form1: TForm1
  ...
  ...
  Object Label1: TLabel
    Left = 16
    Top = 8
    Width = 65
    Height = 39
    Caption = 'Un Label'#13'sur'#13'trois lignes'
  End
  Object BitBtn1: TBitBtn
    Left = 96
    Top = 12
    Width = 125
    Height = 37
    Caption = 'Un bouton sur'#13'deux lignes'
    ModalResult = 1
    TabOrder = 0
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}

    NumGlyphs = 2
  End
  ...
  ...
End

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -