None, we generally have flags for each tab and call them
Update_Blah_Reqd
Date sent: Fri, 2 Jul 2004 15:11:30 +1200
From: Alistair George <[EMAIL PROTECTED]>
Organization: Alistair George Manufacturing
To: [EMAIL PROTECTED]
Subject: [DUG] Listbox problem
Send reply to: Alistair George <[EMAIL PROTECTED]>,
NZ Borland Developers Group
- Delphi List <[EMAIL PROTECTED]>
<mailto:[EMAIL PROTECTED]>
<mailto:[EMAIL PROTECTED]>
> If a page has not been shown before an error occurs unless I add the constant.
> What would be a more correct way of doing the test below?
>
> procedure Tmainform.TabSheet2Show(Sender: TObject);
> const TSshown: word = 0;
> begin
> if TSshown = 0 then
> begin
> TSshown := 1;
> exit;
> end;
> if Listbox.Items.Count > 0 then Listbox.Selected[0] := false;
> end;
>
>
>
> _______________________________________________
> Delphi mailing list
> [EMAIL PROTECTED]
> http://ns3.123.co.nz/mailman/listinfo/delphi
>
Regards
Rohit
======================================================================
CFL - Computer Fanatics Ltd. 21 Barry's Point Road, AKL, New Zealand
PH (649) 489-2280
FX (649) 489-2290
email [EMAIL PROTECTED] or [EMAIL PROTECTED]
======================================================================
_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi
