mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-25 03:19:15 +02:00
lcl: set csSubComponent flag for internally created dialogs so they will be handled by writer and reader (fixes issue #0014434)
git-svn-id: trunk@21447 -
This commit is contained in:
parent
ba57bf9dfd
commit
dcc5a7a431
@ -680,6 +680,7 @@ begin
|
|||||||
begin
|
begin
|
||||||
FDialog := DlgClass.Create(Self);
|
FDialog := DlgClass.Create(Self);
|
||||||
FDialog.Name := DlgClass.ClassName;
|
FDialog.Name := DlgClass.ClassName;
|
||||||
|
FDialog.SetSubComponent(True);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user