Fix displaying the current database in childwins window caption.

This commit is contained in:
Ansgar Becker
2007-08-28 23:18:25 +00:00
parent b9d7377b64
commit e77a3ec06d

View File

@ -1282,9 +1282,9 @@ begin
tabData.TabVisible := false;
pnlTableTop.Caption := 'Table-Properties';
Caption := Description + ' - /' + ActualDatabase;
ActualDatabase := db;
EnsureActiveDatabase;
Caption := Description + ' - /' + ActualDatabase;
ActualTable := '';
try
ShowDBProperties( Self );