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

Вниз

TLabel.Alignment   Найти похожие ветки 

← →
Beckett   (2002-06-09 21:57) [0]

Уважаемые Мастера! В коде
procedure TfrmMain.HeadDraw;
var
HeadLabels: array [1..7] of TLabel;
i:integer;
begin
for i:=1 to 7 do
begin
HeadLabels[i]:=TLabel.Create(frmMain);
with HeadLabels[i] do begin
Parent:=frmMain;
Alignment := taCenter;
WordWrap:=True;
top:=1;
AutoSize :=true;
Color:=clGreen;
font.color:=clWhite;
end;
end;
end;

в Alignment=taCenter получаю: [Error] Unit1.pas(92): Incompatible types: "TAlignment" and "TTextAlign"

Подскажите, что делать!
Спасибо!!!

---

← →
MBo   (2002-06-10 06:47) [1]

у меня это работает.

если не разберешься, сделай так
Alignment :=TAlignment(2);

---

← →
Игорь Шевченко   (2002-06-10 10:01) [2]

какой-то из модулей uses скорее всего, вводит свой тип, в котором есть значение taCenter...
Попробуйте Alignment := Classes.taCenter и будет вам счастье

---

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

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

Наверх

Память: 0.44 MB
Время: 0.004 c