請教各方前輩.... 我在一個Form上有兩個Panel... 而每個Panel裡都有著許多的TEdit和TButton等數量不一的物件... 而我想要分別將這兩個Panle上的物件裡OnEnter事件都各自指向同一個事件... 例如Panel1裡所有物件的OnEnter事件都是指向Panel1.OnEnter事件... 而Panel2裡所有物件的OnEnter事件都是指向Panel2.OnEnter事件... 但我不想一個一個的各別去指定.... 我想試著使用程式去控制 但試了很多方法..就是無法將兩個Panel來分別指定... 不知有沒有前輩可以指導 Thanks 發表人 - jojoboy 於 2003/01/27 23:16:14

procedure TForm1.FormCreate(Sender: TObject); VER I:INTEGER; C:TControl; begin     FOR I:=0 TO  ComponentCount-1 DO  BEGIN   IF Components[I].PARENT = Panel1 THEN   BEGIN     C:=Components[I] AS TCONTROL;     C.OnEnter:=Panel1.OnEnter;   END   ELSE   IF Components[I].PARENT = Panel2 THEN   BEGIN       C:=Components[I] AS TCONTROL;       C.OnEnter:=Panel2.OnEnter;      END;         END;    end;     發表人 - cmf 於 2003/01/30 13:11:19

------
︿︿