среда, 5 августа 2015 г.

ToDo. Сделать формы на скриптах

ToDo. Сделать формы на скриптах.

Как-то так:

FORM TForm1
 INHERITS
  TForm
 ; // INHERITS
 
 COMPONENTS
  TPanel Panel1
  // TPanel Panel1
  TPanel Panel2
   TEdit Edit2
   ; // TEdit Edit2
  ; // TPanel Panel2
 ; // COMPONENTS

 EVENT EditChanged
  Sender .Text Print // печатаем текст в стандартный вывод
 ; // EditChanged

 .Edit2 .OnChange := EditChanged
; // FORM TForm1

TForm1 VAR F
F := TForm1 .Create 
F .Edit2 .Text := 'Hello world'
F .Show

Дальше надо думать.

Обработчики событий - ясное дело тоже можно прикрутить.

Дальше очередь за сборками и прецедентами.

А вообще говоря - всё очень близко к реализации.

Комментариев нет:

Отправить комментарий