if (Component is TButton) or (Component is TEdit) or ...... then 這樣寫很麻煩,請問要如何製作成型別,如 type aa...... end; if Component in aa 要怎樣才能做成以上的寫法

其实可以通过CLASSNAME来判断的，很简单的哟～    

procedure TForm1.ButReadClick(Sender: TObject);
Var
  MyType : String;
begin
  MyType := 'TButton,TEdit,TLabel';
  if Pos(Sender.ClassName, MyType)>0 then
    //...DO It
  //这里的Sender也就是你写的控件对象
end;

發表人 - vicen 於 2005/09/22 08:45:25