Как в TEdit сделать выравнивание текста по высоте?

← →
lipskiy (2002-09-02 12:08) [0]

Желательно без написания наследника.

← →
Ученик (2002-09-02 12:15) [1]

VCENTER ?

← →
lipskiy (2002-09-02 15:59) [2]

А что сие значит? Как это заюзать?

← →
Ученик (2002-09-02 16:02) [3]

А что такое выравнивание текста по высоте в TEdit ?

← →
lipskiy (2002-09-02 16:06) [4]

Ну если я сделаю Edit1.Height:= 100, а шрифт оставлю 10, то строчка текста должна быть в нем не прижата вверх, а располагаться по центру по высоте:
---------------- | | | | |Text | | | | | ----------------

← →
lipskiy (2002-09-02 16:08) [5]

Я неверно сформулировал - выравнивание по центру по высоте, т.е. VCENTER - то, что надо, только как это использовать?

← →
Ученик (2002-09-02 16:36) [6]

C TEdit не получается, только с TMemo

procedure TForm1.Button1Click(Sender: TObject);
var
R : TRect;
begin
Memo1.Height := 200;
Memo1.Perform(EM_GETRECT, 0, LPARAM(@R));
R.Top := (Memo1.Height - 20) div 2;
Memo1.Perform(EM_SETRECT, 0, LPARAM(@R));
end;

← →
lipskiy (2002-09-02 19:35) [7]

Спасибо.
А все таки Edit нужен.
На самом деле нужен просто однострочный редактор, но так это и есть TEdit, чего еще...

← →
Ученик (2002-09-02 19:58) [8]

TMemo.WantReturns=False
TMemo.WordWrap=False,будет TEdit

← →
lipskiy (2002-09-03 00:35) [9]

Ну, в общем да, можно и так.
Ок, спасибо еще раз.

Как в TEdit сделать выравнивание текста по высоте? Найти похожие ветки