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...
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...
Door in je code iets te zetten als:
eigenlijk te simpel om waar te zijn! Na een test bleek het dus niet te werken! Wie wel?Code:MyButton.Caption := 'regel 1'#10#13'regel 2';
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
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
Dan werkt het ook zo Marcel:
Ow, en BTW, je kunt ook een TBitBtn gebruiken, die dan dat sowiesoCode:SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_MULTILINE); Button1.Caption := 'Regel1' + #13#10 + 'Regel2';
EDIT:
Oops, ik dacht dat ik op Pagina2 zat, maar ik had op LAST PAGE geklikt :P
Greetz, Eric Jr.
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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks