(Gast)
n/a Beiträge
|
Text einer CheckBox mehrzeilig darstellen...
14. Okt 2002, 18:09
Delphi-Quellcode:
procedure MultiLineCheckBox(theControl: TWinControl);
var
dwStyle: Longint;
begin
dwStyle := GetWindowLong(theControl.handle, GWL_STYLE) or BS_MULTILINE;
SetWindowLong(theControl.Handle, GWL_STYLE, dwStyle);
end;
Aufruf mit:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
MultiLineCheckBox(Checkbox1);
CheckBox1.Caption := 'Hick' + #13#10 + 'Hack' + #13#10 + 'Huck';
end;
Grüsse, Daniel
|
|
Zitat
|