| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

текст по центру в edit

Змей ©   (2006-01-23 18:17:00) 

извините за глупый вопрос
как в edit1.text текст по центру сделать?:)
спасибо

---

Змей   (2006-01-24 13:47:00) [1]

все бы хорошо и все работает но только на новом проекте т.к. у меня на форме есть уже обработчики событий onclick,oncreate и т.д.
и он не дает TForm1 = class(TForm)
написать после public требует писать в type

---

Игорь Шевченко   (2006-01-24 11:12:00) [2]

unit main;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TMyEdit = class(TEdit)
 public
   procedure CreateParams (var Params: TCreateParams); override;
 end;

 TEdit = class(TMyEdit);

 TForm1 = class(TForm)
   Edit1: TEdit;
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

{ TMyEdit }

procedure TMyEdit.CreateParams(var Params: TCreateParams);
begin
 inherited;
 Params.Style := Params.Style or ES_CENTER;
end;

end.


---

Змей   (2006-01-24 02:03:00) [3]

ткнул f1 почитал образно понятно но витаю в облаках:)

---

Gero   (2006-01-24 00:55:00) [4]

> Змей ©   (24.01.06 00:42)

Понимаешь, что там написано?

---

Змей   (2006-01-24 00:42:00) [5]

[Hint] Unit1.pas(20): Overriding virtual method 'TForm1.CreateParams' has lower visibility (private) than base class 'TForm' (protected)
вот ошибка procedure TCenteredEdit.CreateParams2 тут курсор  2(var Params: TCreateParams);

---

Змей   (2006-01-24 00:35:00) [6]

я просто не знаю :( самоучка
нравится дельф и усе

---

Gero   (2006-01-23 19:59:00) [7]

> begin...end ©   (23.01.06 18:23)

Разленился ты ;)

---

Zeqfreed   (2006-01-23 19:00:00) [8]

Змей ©   (23.01.06 18:42) [2]

Это примерно так:

type
 TCenteredEdit = class(TEdit)
 private
  procedure CreateParams(var Params : TCreateParams); override;
 end;

. . .

procedure TCenteredEdit.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ES_CENTER;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TCenteredEdit.Create(Self) do begin
 Parent := Self;
 Top := 8;
 Left := 8;
 Text := 'Edit1';
end;
end;

---

Змей   (2006-01-23 18:42:00) [9]

как ето?

---

begin...end   (2006-01-23 18:23:00) [10]

Перекрыть CreateParams, установить стиль ES_CENTER.

---

Наверх