將窗口設為系統焦點，並獲得該窗口句柄。然後對該窗口進行操作。(30分)

L

leway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #21

還有一點我要補充一下，form2,form3,.....formn也是動態創建的，我不想沒創建一個form，就給它添加事件，這樣很麻煩。你們有什麼辦法。請指教。謝謝！

 

饿

饿狼传说

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #22

同意楼上的说法，各窗口相应OnActivate事件的代码
procedure TForm2.FormActivate(Sender: TObject);
var
Label1: TLabel;
begin
Label1:=tlabel.Create(self);
label1.Parent := tform(sender);
label1.Caption :='success';
end;

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #23

你可以通过继承做啊！！！！　　

 

L

leway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #24

多人接受答案了。