|
Сообщение от alien
По поводу очитски экрана придумал, но это не то конечно
*
**** setColor(255, 255, 255);
**** fillRect(0, 0, 101, 80);
repaint;
*
рисует на мнгновение белый прямоугольник на весь экран.
*
А вот с предупреждением чегото не разбирусь..
|
Попробуй с предупреждением так:
procedure Showmessage(body:string);
var cm,cm1,click : command;
begin
showAlert('Информация',body,loadImage('/dollar.png'),ALERT_INFO);
cm1 := createCommand('', CM_STOP, 1);
addCommand(cm1);
cm := createCommand('Ок', CM_STOP, 1);
addCommand(cm);
repeat
delay(100);
click:=getClickedCommand;
until (click = cm) or (click = cm);
end;
Пример исполования
Showmessage('Пожалуйста настройте все пункты меню "НАСТРОЙКИ" !!!');