急~~如何在ActiveForm中响应OnActivate事件!!!(100分)

  • 主题发起人 主题发起人 tommy505
  • 开始时间 开始时间
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;
//......................主窗体激活粘贴剪贴板内容.............................

 
为什么都没人回答呢?是不是问题太简单了?还是高手们都度假去了???
 
试试直接加在activeform的ActivateEvent过程中
 
我也做过了,那是不行的,至于为什么,我也不清楚,你如果要做的话,加在OnFormCreate倒是可以。实在不行的话,你可以加在某个赋值事件中,那样就可以。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
716
import
I
后退
顶部