【结贴】[请求]紧急求助怎么设置只读**

wffggxx

type
  TMyThread = class(TThread)
  private
    FForm: TRHFLRY;
  public
    procedure Execute; override;
    property Form: TRHFLRY read FForm write FForm;
  end;

implementation

procedure TMyThread.Execute;
begin
   FForm.DataSetRHFLRYDJ.FieldByName('XM').ReadOnly := true;
  FForm.DataSetRHFLRYDJ.FieldByName('TSXX').ReadOnly  := true;
   FForm.DataSetRHFLRYDJ.FieldByName('XM').ReadOnly := False;
end;

procedure TMainForm.edt_SFZHExit(Sender: TObject);
var
  vRes :CzrkServiceResult;
  vSFZH :string;
begin
  //创建线程
  T := TMyThread.Create(True);
  //将主窗体赋值到线程过程中的FForm变量
  T.FForm := Self;
  //换醒线程
  T.Resume;
end;

wffggxx

FForm.DataSetRHFLRYDJ.FieldByName('XM').ReadOnly := true;
  FForm.DataSetRHFLRYDJ.FieldByName('TSXX').ReadOnly  := true;
在编译的时候都不会出现问题，但是运行的时候会报错

zfang

报什么错呢？

wffggxx

在ReadOnly处会报系统错误，只不过问题我已经采用其他方法解决了，不过还是谢谢你了。
可以结贴吧

zfang

好，客气。