Results 1 to 5 of 5

Thread: TButton caption.

  1. #1
    Senior Member pcoenen's Avatar
    Join Date
    Apr 2001
    Location
    Tesssenderlo, België
    Posts
    239

    Question

    Hallo,

    Wat ik mij reeds lange tijd afvraag en nog steeds niet in geslaagd ben:

    Hoe is het in godsnaam mogelijk om een dubbele 'caption' of tekstlijn op een button component
    te krijgen.


    Pascal...

  2. #2
    Old Navigator Matthijs's Avatar
    Join Date
    Mar 2001
    Location
    Ede, NL. Delphi: Delphi 7/2005 :). Matthijs schrijf je Matthijs
    Posts
    2,199

    Smile

    Door in je code iets te zetten als:
    Code:
    MyButton.Caption := 'regel 1'#10#13'regel 2';
    eigenlijk te simpel om waar te zijn! Na een test bleek het dus niet te werken! Wie wel?
    Last edited by Matthijs; 08-Apr-01 at 14:39.
    What's in a sig?

    Would my posting be less valuable if it didnot have a sig? (Vrij naar William S.)

    Let op de kleine lettertjes. For all postings: e&oe!
    This program performed an illegal function, the police are on their way

  3. #3
    Je moet je component dan ook nog vertellen dat ie multi-line is door de style BS_MULTILINE te gebruiken. De handigste manier is door een nieuw component te maken als volgt:
    Code:
    unit MultiLineButton;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls;
    
    type
      TMultiLineButton = class(TButton)
      private
      protected
        procedure CreateParams(var Params: TCreateParams); override;
      public
      published
      end;
    
    procedure Register;
    
    implementation
    
    procedure TMultiLineButton.CreateParams(var Params: TCreateParams);
    begin
      inherited CreateParams(Params);
      Params.Style := Params.Style or BS_MULTILINE;
    end;
    
    procedure Register;
    begin
      RegisterComponents('NLDelphi', [TMultiLineButton]);
    end;
    
    end.
    Marcel

  4. #4
    Delphi Lurker
    Join Date
    Dec 2002
    Location
    The Netherlands
    Posts
    87
    Dan werkt het ook zo Marcel:
    Code:
      SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_MULTILINE);
      Button1.Caption := 'Regel1' + #13#10 + 'Regel2';
    Ow, en BTW, je kunt ook een TBitBtn gebruiken, die dan dat sowieso

    EDIT:
    Oops, ik dacht dat ik op Pagina2 zat, maar ik had op LAST PAGE geklikt :P
    Greetz, Eric Jr.

  5. #5
    Senior Member walterheck's Avatar
    Join Date
    Oct 2001
    Location
    Belo Horizonte, Brasil
    Posts
    4,212
    Er zijn ook genoeg 3rd party buttons die dit kunnen. Bij JediVCL zit er bijvoorbeeld ook een..
    Nee, de Romeinen spraken geen ISO-8859-1 LATIN

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Caption menu items als 'normale' tekst
    By Jelmer in forum Algemeen
    Replies: 10
    Last Post: 02-Nov-04, 09:48
  2. window handle zoeken op caption
    By Argenta in forum Algemeen
    Replies: 9
    Last Post: 23-Jun-04, 17:10
  3. QRLabel verschijnt niet op print
    By Tanner in forum Algemeen
    Replies: 7
    Last Post: 04-Mar-04, 13:04
  4. Colors van buttons en caption waardes
    By Remco in forum Algemeen
    Replies: 2
    Last Post: 04-Mar-03, 21:19
  5. Listview kolom eigenschappen verdwijnen
    By irenicus in forum Algemeen
    Replies: 3
    Last Post: 05-Nov-02, 20:02

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •