Thema: Delphi Bug im TBitBtn?

Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: Bug im TBitBtn?

  Alt 16. Aug 2005, 17:09
Ein Bug ist das nicht, sondern die VCL benützt nicht die Möglichkeiten, die Windows bietet.
Versuch mal zur Laufzeit folgende Prozedur aufzurufen:
Delphi-Quellcode:
procedure MultilineButton(theControl: TWinControl);
var
   dwStyle: Longint;
begin
   dwStyle := GetWindowLong(theControl.handle, GWL_STYLE) or BS_MULTILINE;
   SetWindowLong(theControl.Handle, GWL_STYLE, dwStyle);
end;
Andreas
  Mit Zitat antworten Zitat