Здравствуйте, Томша Павел!

В приложении смотрите процедуру, при помощи которой реализуется ввод справа-налево.

Только для полной его функциональности создайте обработчик Edit1Change для своего поля ввода (Edit1), в который необходимо поместить строку вызова соответствующей процедуры:

procedure TForm1.Edit1Change(Sender: TObject);
begin
RightEdit(edit1);
end;


Хотя можно и легче - это воспользоваться сторонними компонентами....

Good Luck!!!

Приложение:
procedure RightEdit(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;

Консультировал: Gh0stik Дата отправки: 25.12.2006, 16:18

Рейтинг ответа: 0 [подробно] Сообщение модераторам Отправлять сообщения модераторам могут только участники портала. ВОЙТИ НА ПОРТАЛ » регистрация »

Здравствуйте, Томша Павел!

type
TEdit = class(StdCtrls.TEdit)
procedure CreateParams(var Params: TCreateParams); override;

//Все Edit описанные ниже будут иметь ввод справа

type
TForm1 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
procedure TEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ES_RIGHT;
end;

Консультировал: Gladiator Дата отправки: 26.12.2006, 09:22

Рейтинг ответа: 0 [подробно] Сообщение модераторам Отправлять сообщения модераторам могут только участники портала. ВОЙТИ НА ПОРТАЛ » регистрация »