VPF::Как сделать текст в Edit справа? - Форум программистов

Розмарин

Дата 8.4.2006, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 8.4.2006

Репутация: нет
Всего: нет

Товарищи, помогите новичку (мне!). Как сделать текст в Edit справа, а не слева, причем без объявления всяких там новых классов!!! Это, вообще, возможно?
Если невозможно, то как потом работать с динамически созданными объектами. Как программно вводить в этот новый Edit текст и т.д. Где вообще находятся его свойства?

Все должно быть проще, вроде одного свойства...

Poseidon

Дата 8.4.2006, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Код

procedure RJustifyEdit(var ThisEdit : TEdit);
var
 Left, Width : Integer;
 GString : String;
 Rgn : TRect;
 TheCanvas : TControlCanvas;
begin
  TheCanvas := TControlCanvas.Create;
  try
    TheCanvas.Control := ThisEdit;
    GString := ThisEdit.Text;
    Rgn     := ThisEdit.ClientRect;
    TheCanvas.FillRect(Rgn);
    Width   := TheCanvas.TextWidth(GString);
    Left := Rgn.Right - Width - 1;
    TheCanvas.TextRect(Rgn, Left, 0, GString);
  finally
    TheCanvas.Free;
  end ;
end;

использование:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
RJustifyEdit(Edit1)
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »