ตัวอย่างการสั่ง ให้ items ของ TDBRadioGroup ขึ้นบรรทัดใหม่
Sample code
procedure TForm1.FormShow(Sender: TObject);
var
i: Integer;
begin
for i := 0 to DBRadioGroup1.ControlCount - 1 do
begin
SetWindowLong((DBRadioGroup1.Controls[i] as TRadioButton).Handle, GWL_STYLE,
GetWindowLong((DBRadioGroup1.Controls[i] as TRadioButton).Handle,
GWL_STYLE) or BS_MULTILINE or BS_TOP);
end;
Invalidate;
end;
Sample code
procedure TForm1.FormShow(Sender: TObject);
var
i: Integer;
begin
for i := 0 to DBRadioGroup1.ControlCount - 1 do
begin
SetWindowLong((DBRadioGroup1.Controls[i] as TRadioButton).Handle, GWL_STYLE,
GetWindowLong((DBRadioGroup1.Controls[i] as TRadioButton).Handle,
GWL_STYLE) or BS_MULTILINE or BS_TOP);
end;
Invalidate;
end;
Comments
Post a Comment