Re: TZF - PageControl - Tabsheet

Something like this might help:

procedure TfrmMain.pcMgtAdminChanging(Sender: TObject;
  var AllowChange: Boolean);
var
  changeTSOK:boolean;
begin
  changeTSOK:=TRUE;
  if DM.DS_CLass_Type.State<>dsBrowse then changeTSOK:=FALSE;
  if DM.DS_CLass_SubType.State<>dsBrowse then changeTSOK:=FALSE;
  if DM.DS_Term.State<>dsBrowse then changeTSOK:=False;
  if NOT changeTSOK then showMessagePos
    ('  **********      You must complete (or cancel) your database
operation (add or edit)     **********    ',200,200);
  AllowChange:=changeTSOK;
end;



Hope this helps,
Bob
___________________________________________________

----- Original Message ----- 
From: "Pierre Wittwer" <[email protected]>
To: <[email protected]>
Sent: Tuesday, January 13, 2004 1:09 AM
Subject: TZF - PageControl - Tabsheet


> Hello,
>
> It's not a Topaz Problem, but I use an PageControl, e.g. with 3 Tabsheets
> A,B,C.
> The user is on TabsheetA and only can change toTabsheetB or TabsheetC,
when
> on the Tabsheet A the Button 'Save' is pressed.
>
> I tried with  TabSheetB.enabled:=false and TabSheetC.enabled:=false.
>
> How can I manage in another manner to prevent the user to change to B or
C,
> when he is working on A.
>
> Thank you for your help
>
>
> Pierre Wittwer
> 6370 Stans
> Switzerland
>
>
>
>
>

--^----------------------------------------------------------------
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
--^----------------------------------------------------------------