肯定要转换,一方面是单位不同,TX的单位是“提”(twips,200 twips 等于10 point),另一方面,事件中的位置应该是相对整个窗口的,不是相对于控件的。所以你还要自己算一下便宜量。
- [Delphi]
- procedure TForm1.Insert1Click(Sender: TObject);
- begin OpenDialog1.Title := 'Insert Image';
- OpenDialog1.Filename := '';
- OpenDialog1.Filter := TXTextControl1.ImageFilters;
- OpenDialog1.FilterIndex := 1;
- OpenDialog1.Options := [ofPathMustExist, ofFileMustExist, ofHideReadOnly];
- if OpenDialog1.Execute then begin try TXTextControl1.ImageInsert(OpenDialog1.Filename,-1, 1, 0, 0, 100, 100, 3, 0, 0, 0, 0);
- except MessageDlg('Cannot insert image: ' + OpenDialog1.filename + '.', mtError, [mbOK], 0);
- end;
- end;
- end;
复制代码 |