Hi!
I have created an application in which the users are able to create
child forms dynamically (in a horizontal layout) with a single
ScrollBox as Parent.
The problem occurs when closing these forms in the Windows XP environment.
I create several child forms so as to exceed the visible area of the
ScrollBox (e.g., in my case 4). Thereafter I close the last child form
and scroll left to the beginning of the ScrollBox. At this point the
second child form (Child2) is partially disabled. i.e., the border
icons are disabled and resizing Child2 is also not possible.
However when the mouse pointer is moved from the right edge of
Child2's title bar towards its left, the mouse pointer changes from
default to resize pointer at a certain point and a fraction later the
border icons are enabled.
I'm at my wits end on how to solve this problem as it involves no
complicated code. Please help.
(Delphi 5 / Windows XP)
Thanks!
Isuru.
The relevant code blocks are as follows:
-------------
unit Unit1;
procedure TfrmScrollBoxTest.buttonAddChildFormClick(Sender: TObject);
var position, location : Integer;
child : TForm;
begin
// objList : TComponentList; - published property
location := 10;
index := objList.Add(TForm2.CreateParented(ScrollBox1.Handle));
if index > 0 then
location := TForm(objList.Items[index -1]).Left +
TForm(objList.Items[index -1]).Width + 10;
child := TForm(objList.Items[index]);
child.Parent := ScrollBox1;
child.Top := 10;
child.Left := location;
child.Show;
ScrollBox1.ScrollInView(child);
end;
procedure TfrmScrollBoxTest.FormCreate(Sender: TObject);
begin
objList := TComponentList.Create(True);
end;
procedure TfrmScrollBoxTest.FormDestroy(Sender: TObject);
begin
objList.Free;
end;
-------------
unit Unit2;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Self.Parent.Parent is TfrmScrollBoxTest then
TfrmScrollBoxTest(Self.Parent.Parent).objList.Remove(Self);
end;
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income homes are not online. Make a difference this holiday season!
http://us.click.yahoo.com/5UeCyC/BWHMAA/TtwFAA/i7folB/TM
--------------------------------------------------------------------~->
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
