Форум: "Начинающим";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Вниз

текст по центру в edit   Найти похожие ветки 

← →
Змей ©   (2006-01-23 18:17) [0]

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

---

← →
begin...end ©   (2006-01-23 18:23) [1]

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

---

← →
Змей ©   (2006-01-23 18:42) [2]

как ето?

---

← →
Zeqfreed ©   (2006-01-23 19:00) [3]

Змей ©   (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;

---

← →
Gero ©   (2006-01-23 19:59) [4]

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

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

---

← →
Змей ©   (2006-01-24 00:35) [5]

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

---

← →
Змей ©   (2006-01-24 00:42) [6]

[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);

---

← →
Gero ©   (2006-01-24 00:55) [7]

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

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

---

← →
Змей ©   (2006-01-24 02:03) [8]

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

---

← →
Игорь Шевченко ©   (2006-01-24 11:12) [9]

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 13:47) [10]

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

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.053 c