关于edit和dblookupcombobox控件的2个小问题

Question

1 当edit的高度大于其字体高度时，怎样让字显示在edit的中间，而不是top？
2 dblookupcombobox修改哪个属性能让它的text有初始值？开始总是空白的，而且当你选取了一个后，如何清除这个值啊，也就是让他的text为空，因为text是只读的所以这个问题总解决不了

Answer 1

重载 TEdit的WmPaint94  procedure TEdit.WMPaint(var msg: TWMPaint);
95  var
96    canvas: TCanvas;
97    ps: TPaintStruct;
98    callEndPaint: Boolean;
99  begin
105     canvas := TCanvas.Create;
122         canvas.Brush.Style := bsClear;
123         canvas.Font := Font;
124         canvas.Font.Color := FDisabledTextColor;           //这里计算要输出的x, y
125         canvas.TextOut(1, 1, Text);132       canvas.free135 end;

Answer 2

第一个问题：SetTextAlign(DC: HDC, Flags: Cardinal);

Answer 3

SetTextAlign(DC: HDC, Flags: Cardinal);
能给个实际的例子吗？现在我要字显示在edit的中间（高度），怎样设啊，谢谢

Answer 4

dblookupcombobox是一个数据感知控件，是绑定到记录集上的，需要对记录集给予初始值