Ignore a dangerous shortcut pressing when neither DBTree nor ListTables has focus. Fixes issue #1284

This commit is contained in:
Ansgar Becker
2009-08-05 19:01:30 +00:00
parent d9c317277d
commit a4f2e2aee8

View File

@@ -2636,10 +2636,11 @@ begin
// Add selected items/tables to helper list
if ListTables.Focused then
t := GetVTCaptions(ListTables, True)
else begin
else if DBTree.Focused then begin
t := TWideStringList.Create;
t.Add(SelectedTable.Text);
end;
end else
Exit;
if t.Count = 0 then
Exit;