f1book的问题,会的不难(50分)

  • 主题发起人 主题发起人 terry_lzs
  • 开始时间 开始时间
T

terry_lzs

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在f1book的编辑中获得被编辑的cell的字符串,我用了textrc,但是获得的是编辑前
的或者需要结束编辑后才能读到新的串值。我希望获得的是如同在edit中的onchange中获
得的edit.text值,是随着输入的而改变得。
 
It 's maybe impossible
 
除非自己接收键盘输入
 
接受键盘输入?
如果我在已有的字符串中插入字符怎么办?
sigh
 
太简单的办法好像没有,不过
可以放置一个edit,与fbook进行来回焦点切换,来回赋值
可以尝试
 
期待高手相助。
 
如果可能的话, 必须自己写消息映射函数, 可能使用WinSight或Spy消息监视函数辅助完成。
 
to hbgchy:如何写?能不能给出源码?谢谢了。
 
没有人能回答吗?那么换一个问题,如何改变coltext的字体?就是title的字体
能回答的再给50分
 
有一个方法,就是采用添加一个窗口过程的方法,继承WM_GETTEXT消息,
当窗口过程获得消息的时候,解析它。
 
请具体些,我是个新手,嘻嘻
 
我也想知道!快高数我!
 
不知是否可以解决你的问题:
TForm1 = class(TForm)
F1Book1: TF1Book;
Edit1: TEdit;
procedure F1Book1KeyPress(Sender: TObject
var Key: Char);
procedure F1Book1SelChange(Sender: TObject);
private
IsNewSelect:Boolean;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.F1Book1KeyPress(Sender: TObject
var Key: Char);
begin
F1Book1.EndEdit;
F1Book1.StartEdit(isNewSelect,false,false);
if isNewSelect then
Edit1.Text :=key
else
Edit1.Text :=F1Book1.text+Key;
IsNewSelect:=False;
end;

procedure TForm1.F1Book1SelChange(Sender: TObject);
begin
isNewSelect:=True;
end;

 
多人接受答案了。
 
后退
顶部