控件

最新推荐文章于 2022-08-06 20:25:37 发布

原创最新推荐文章于 2022-08-06 20:25:37 发布 · 196 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

0 篇文章

订阅专栏

1、控制

1.1、显示

1.1.1、聚焦

if(cxTextEdit1.CanFocus) then
        cxTextEdit1.SetFocus;//若控件cxTextEdit1可聚焦，则cxTextEdit1聚焦。注意：不可视控件无法聚焦，聚焦会报错。

1.1.2、模态

var
  FrmScanCode:TFrmScanCode;
begin
  try
    FrmScanCode := TFrmScanCode.create(self); 
    if FrmScanCode.ShowModal = mrok then//模态显示FrmScanCode窗体
    begin
      cxTextEdit1.Text := FrmScanCode.Saleno;
      pInitForm;
    end;
  finally
     FreeAndNil(FrmScanCode);
  end;
end;

procedure TFrmScanCode.cxTextEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin 
  if (Key =  VK_RETURN) and (cxTextEdit1.Text <> '') then
  begin
      Saleno := cxTextEdit1.Text;
      ModalResult := mrOk;//模态窗体返回。 注意：不能在此处再添加Close方法关闭窗体，否则会返回的ModalResult不等于 mrOk
  end;
end;