Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c