dakrewer
15.12.2011, 22:02
У меня тут скрипт для титула есть , типо анимированный.
//************************************************** **********************
//описание объектов
//************************************************** **********************
var
m: TMemo; // м это объекм мемо
frm: TForm; // frm это объект форма
penel, penel1, penel2: TPanel; // penel это объект панель
etext, etext1, etext2, etext3: Tedit; // etext это объект для ввода данных
button: Tbutton; // button это объект кнопка
//////////////////////////////////////////////////////////////////////////
//************************************************** **********************
procedure Init;
//************************************************** **********************
begin
frm := TForm.Create(nil); //создать форму
frm.Caption := 'Бегущий титул by Vaska123'; //заполнить заголовок формы это 'Chat'
frm.BorderStyle := bsSizeable; //тип бордюра формы -------------- ТУТ ОШИБКА! КАК ИСПРАВИТЬ?!
frm.Position := poScreenCenter; //позиция где создастся форма это по центру экрана
frm.Width:=288; //ширина формы это 288
frm.Height:=128; //высота формы это 128
penel:=TPanel.Create(frm); //создать панель в форме
penel.parent:=frm; //указать родителя для панели это форма
penel.align:=alRight; //выравнивание панели в форме
penel.Width:=100;
вот но ошибку рисует.
//************************************************** **********************
//описание объектов
//************************************************** **********************
var
m: TMemo; // м это объекм мемо
frm: TForm; // frm это объект форма
penel, penel1, penel2: TPanel; // penel это объект панель
etext, etext1, etext2, etext3: Tedit; // etext это объект для ввода данных
button: Tbutton; // button это объект кнопка
//////////////////////////////////////////////////////////////////////////
//************************************************** **********************
procedure Init;
//************************************************** **********************
begin
frm := TForm.Create(nil); //создать форму
frm.Caption := 'Бегущий титул by Vaska123'; //заполнить заголовок формы это 'Chat'
frm.BorderStyle := bsSizeable; //тип бордюра формы -------------- ТУТ ОШИБКА! КАК ИСПРАВИТЬ?!
frm.Position := poScreenCenter; //позиция где создастся форма это по центру экрана
frm.Width:=288; //ширина формы это 288
frm.Height:=128; //высота формы это 128
penel:=TPanel.Create(frm); //создать панель в форме
penel.parent:=frm; //указать родителя для панели это форма
penel.align:=alRight; //выравнивание панели в форме
penel.Width:=100;
вот но ошибку рисует.