Показать сообщение отдельно
Старый 29.12.2008, 10:13   #7
Новичок
 
Регистрация: 09.12.2008
Сообщений: 18
Сказал Спасибо: 8
Имеет 1 спасибку в 1 сообщении
Anton5 пока неопределено
По умолчанию

Всё разобрался, нужно было написать height в место heigth. Меня ввело в заблуждение что Google слова heigth и height перевёл одинаково "высота".

Возвращаясь к коду. Проверка происходит нормально, но при выполнение никакого нового окна не появляется, вообще нечего не происходит. Использую версию 3.4.1.70
Скопировал всё в новый пустой файл:

Код:
var
m: TMemo;
f1:TForm;

procedure Init; //Вызывается при включении скрипта
begin
	f1:=TForm.Create(nil);
		f1.width:=1000;
		f1.height:=1000;
		f1.left:=100;
		f1.top:=100;
	m:=TMemo.Create(f1);
	m.parent:=f1;
	m.align:=alClient;
	m.ReadOnly:=true;
	m.ScrollBars:=ssBoth;
		m.Lines.Add(TimeToStr(now)+': Скрипт запущен');
end;

procedure Free; //Вызывается при выключении скрипта
begin
	m.Free;
	f1.Free;
	HideTab;
end;

begin

end.
Anton5 вне форума   Ответить с цитированием