本文整理自网络,侵删。
//delphi MainMenu控件 checkde属性用法
procedure TForm1.N8Click(Sender: TObject);
begin
if N8.Checked then
begin
N8.Checked := false;
Memo1.ScrollBars:=ssVertical;
end
else
begin
N8.Checked := True;
Memo1.ScrollBars:=ssBoth;
end;
end;
相关阅读 >>
Delphi 最全_日期格式_dateutils时间单元说明
Delphi xe10 android安卓 移动端 messagedlg 用法
Delphi cef4Delphi chromium1 设置user-agent
更多相关阅读请进入《Delphi》频道 >>