2017-10-09 66 views

回答

0

使用 procedure DBXQuery1FIELD2OnAfterData(Sender: TfrxComponent); begin if DBXQuery1FIELD2.Text = '' then DBXQuery1FIELD2.Frame.Typ := 0 else DBXQuery1FIELD2.Frame.Typ := ftLeft + ftRight + ftTop; end;