Извините, ничего не найдено.

Rock2roll · 15.05.2011, 15:48



Procedure call_on; 
begin 
clearForm; 
CallCommand:=createCommand('Вызов',CM_OK,1); 
showForm; 
addCommand(CallCommand); 
num:=formAddTextField('Звонок на номер','+380',13,TF_PHONENUMBER); 
repeat 
clicked:=getClickedCommand; 
until clicked=CallCommand; 
numb:=formGetText(num); 
i:=call.Phone(''+numb); 
showCanvas; 
workspace; 
end;

как сделать чтобы можно было выйти не осуществив вызов?

Rock2roll · 15.05.2011, 15:49

P.S. все переменные у меня в проге есть.