Учебник по Delphi 4

       

ShowMessage



    Кроме вывода информации в форму, можно воспользоваться модальным диалоговым окном. Принципиальное отличие этого метода, в первую очередь, состоит в том, что модальное диалоговое окно останавливает выполнение программы, пока вы его не закроете. Таким образом, у вас имеется достаточно времени, чтобы прочесть и осмыслить полученную информацию.


    Процедура ShowMessage (из модуля Dialogs) идеально подходит для этой цели Она позволяет вывести строку любой длины в простом модальном диалоговом окне. Вам только следует создать строку для вывода и передать ее процедуре (можно также использовать MessageDIg, но в нем слишком много шашечек и бантиков, которые требуют немалых усилий для достижения того же эффекта).


    ShowMessage получает в качестве параметра одну строку, для создания которой я предпочитаю использовать функцию Format, она идеально подходит для этого, будучи одновременно простым и мощным инструментом в умелых руках.


    Рассмотрим простой пример. Используем этот метод для вывода информации, получаемой от уже использовавшейся функции GlobalMemoryStatus.


    Создадим новое приложение и поместим TButton в основную форму. Обработчик события OnClick будет выглядеть следующим образом.

    procedure TFormI.ButtonlClick(Sender: TObject);


    var MemStat: TMemoryStatus;


    begin


        MemStat.dwLength:= SizeOf(TMemoryStatus);


        GlobalMemoryStatus(MemStat);


        with MemStat do ShowMessage(Format('Memory load: %d%%'#13 +


            'Total physical: %d'#13+'Available physical: %d'#13 +


            'Total page file: %d'#13 + 'Available page file: %d'ftl3 +


            'Total virtual: %d'#13 + 'Available virtual: %d',



            [dwMemoryLoad, dwTotalPhys, dwAvailPhys, dwTotalPageFile,

            dwAvailPageFile, dwTotalVirtual, dwAvailVirtual]));

    end;

    Заметьте, что я внес в строку несколько символов #13 (ASCII-символ возврата каретки). Это позволяет разбить строку при выводе на несколько строк, что существенно облегчает чтение информации. На рис 2.23 показано, что получится после запуска программы и щелчка на кнопке.

    Судя по результатам Memory load и Available physical, представленным на рисунке, мне стоит всерьез подумать о наращивании памяти своего компьютера.

 



Рис 2.23 Использование функции ShowMessage для вывода отладочной информации.


Содержание раздела