We are having some problems using Page Controls in a particular
configuration. The particular configuration is
style : tsFlatButtons
tabposition : Right
If we change the style to tsTabs, the page control will work correctly
however we want to use flat buttons. I've had a quick poke around the VCL
and found the offending bit of code.
procedure TCustomTabControl.SetTabPosition(Value: TTabPosition);
begin
if FTabPosition <> Value then
begin
if (Value <> tpTop) and (Style <> tsTabs) then
raise EInvalidOperation.Create(SInvalidTabPosition);
FTabPosition := Value;
if not MultiLine and ((Value = tpLeft) or (Value = tpRight)) then
InternalSetMultiLine(True);
RecreateWnd;
end;
end;
It sounds to me like it's a Windows problem, and Delphi is just trapping
the exception nicely. I don't know if any work arounds are possible in
this situation, I doubt it, but any bright ideas would be gladly
appreciated (other than being told Component X from Company Y has a really
cool page control that does this :-) )
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
