都5天了还没搞定啊?假设你说的两个控件名字为ControlName1和ControlName2,那么这样写:
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
tfComponent: TComponent;
begin
for I := 0 to ComponentCount-1 do
begin
tfComponent := Components[I];
if tfComponent is TWinControl then
TWinControl(tfComponent).TabStop :=
(tfComponent.Name = 'ControlName1') or
(tfComponent.Name = 'ControlName2');
end;
end;