标签: tcheckbox

当我改变CheckBox的状态时,我很想知道

CheckBox->Checked=false;

它调用CheckBoxOnClick事件,如何避免它？

我想提出一个TCheckBox内部TStringGrid在Delphi中某列的每一个细胞.我正在使用Delphi XE.

我想在TSaveDialog中添加一个复选框或其他VCL组件.

坎图说,

新的Vista打开和保存对话框(由IFileOpenDialog和
IFileSaveDialog接口实现)由新的FileOpenDialog和
FileSaveDialog组件直接映射,而标准的OpenDialog和SaveDialog组件
在设置全局UseLatestCommonDialogs时使用新样式.

我不知道这意味着什么(我从未做过任何接口编程......)

而且我不想使用第三方工具.

我刚才在网络搜索中看到它建议我查看TOpenPictureDialog代码并复制它.

在尝试任何路径之前,我想我会在这里寻求一些指导.有关XP到Win7解决方案的任何建议,以独立于Windows版本的方式向现代文件,打开对话框添加复选框？

汤姆

我的问题是如何在Delphi 7中的dbgrid中设置一个列,其中包含一个复选框项.

提前致谢.

好吧,这应该很简单,但我找不到解决方案,至少在不太好的文档中没有找到.在a中TTaskDialog,你可以选择添加一个复选框.您可以通过tfVerificationFlagChecked标志来控制其初始状态Flags.但是如何在对话框结束后获得状态Execute？

当然,可以OnVerificationClicked在每次调用时使用事件并切换一个局部变量,最初等于复选框的初始状态.但人们会期待更自然的解决方案.

现在,我有代码:

begin
If odd(GetAsyncKeyState(VK_snapshot)) then
If CheckBox1.Checked then
begin

然后继续使用其余的代码.这是正确的做法,还是我做错了？

我需要在TListView的列标题中有一个复选框:

我试过以下代码:

with CheckBox1 do
begin
  Parent := ListView1;
  Top := 0;
  Left := 4;
end;

但复选框并不总是按预期工作.如何在TListView标题列中正确创建复选框？

我有一个Checkbox1,我想自定义,当用户点击复选框的标题(文本)时,它不会改变它的状态(选中/取消选中),但只有当它点击实际的复选框时才会这样做.

这是当前代码,包含2个全局变量,一个表示何时跳过更改状态,另一个表示记住当前状态并确保它在OnClick之后保持不变 - 因为当流程处于OnClick时状态已经更改:

var
  gSkipClick:boolean = false;
  gPrevState:boolean;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  // Make sure previous state is assigned when Skip
  if gSkipClick then
    Checkbox1.Checked := gPrevState;
end;

procedure TForm1.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (x > 12) then
  begin
    // Click outside checkbox square
    gSkipClick := True; // skip Click
    gPrevState := CheckBox1.Checked; // save current state
  end
  else
    gSkipClick := False;  // enable Click
end;

现在我想用TCheckBox中的2个新属性来替换全局变量:

TCheckBox = class(Vcl.StdCtrls.TCustomCheckBox)
    private
      FSkipStateChange:Boolean;
      FPrevState:Boolean; …