T
tommy505
Unregistered / Unconfirmed
GUEST, unregistred user!
我想在ActiveForm激活时响应,可是这个事件怎么都无法激活呢,我在普通的窗体都可以啊,急~急~企盼高手指点迷津!!!
(以下是我响应的OnAcrivate事件程序)
//......................主窗体激活粘贴剪贴板内容.............................
procedure TActiveFormX.ActiveFormActivate(Sender: TObject);
begin
if leftstr(clipboard.AsText,2)='@1' then edit1.Text:=midstr(clipboard.AsText,3,50)
//利用标识'@1'确定粘贴位置
if leftstr(clipboard.AsText,2)='@2' then edit2.Text:=midstr(clipboard.AsText,3,50);
end;
//......................主窗体激活粘贴剪贴板内容.............................
(以下是我响应的OnAcrivate事件程序)
//......................主窗体激活粘贴剪贴板内容.............................
procedure TActiveFormX.ActiveFormActivate(Sender: TObject);
begin
if leftstr(clipboard.AsText,2)='@1' then edit1.Text:=midstr(clipboard.AsText,3,50)
//利用标识'@1'确定粘贴位置
if leftstr(clipboard.AsText,2)='@2' then edit2.Text:=midstr(clipboard.AsText,3,50);
end;
//......................主窗体激活粘贴剪贴板内容.............................