Показать сообщение отдельно
Старый 18.11.2011, 22:53   #11
kalashnikov
Оператор ЭВМ
 
Регистрация: 09.09.2011
Сообщений: 34
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Помогите создать маленькую прогу.

Var field:integer;
ok:command;
text,code: string;
begin
ok:=createCommand('ok',CM_OK,1);
showForm;
field:=formAddTextField('Введите имя','',10,TF_ANY);
addCommand(ok);
while getClickedCommand<ok> do
delay(100);
if code='111' then text:='земля';
showCanvas;
drawText(?,0,0);
repaint;
delay(4000);
end.
(Offline)
 
Ответить с цитированием