用OnChange試試... procedure TForm1.TabControlChange(Sender: TObject); begin showMessage(IntToStr(TabControl.TabIndex)); end;
procedure TForm1.TabControl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (ssDouble in shift) and (ssLeft in Shift) then ShowMessage('Double Clicked!'); end;
procedure TForm1.TabControlChange(Sender: TObject);
begin
showMessage(IntToStr(TabControl.TabIndex));
end;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (ssDouble in shift) and (ssLeft in Shift) then
ShowMessage('Double Clicked!');
end;