Делфи, Вывод Сообщения На Экран

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем Jaspe, 21 фев 2012.

  1. Jaspe

    Jaspe Гость

    Здравствуйте!
    У меня такой вопрос: В моей программе проверяется правильность составления электрической схемы
    И мне нужно после проверки результатов вывести на экран сообщение о результате(ошибка или правильно составлено)
    как мне это сделать?
    заранее спасибо
     
  2. sinkopa

    sinkopa Well-Known Member

    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    :) незачто
    Код (Delphi):
    procedure TForm1.Button1Click(Sender: TObject);
    var
    s: string;
    Flags: Integer;
    LabResult: Boolean;
    InfoType: TMsgDlgType;
    begin

    LabResult := ((Random(100) mod 2) = 0); // Типа результат составления схемы.

    if LabResult then
    begin
    s := 'правильно';
    Flags := MB_OK + MB_ICONINFORMATION + MB_TOPMOST;
    InfoType := mtInformation;
    end
    else
    begin
    s := 'неправильно';
    Flags := MB_OK + MB_ICONSTOP + MB_TOPMOST;
    InfoType := mtError;
    end;

    // Способы вывода сообщений
    Application.MessageBox(PChar(Format('Схема составлена %s', [s])), PChar(Application.Title), Flags);
    MessageBox(Self.Handle, PChar(Format('Схема составлена %s', [s])), PChar(Application.Title), Flags);
    MessageDlg(PChar(Format('Схема составлена %s', [s])), InfoType, [mbOK], 0);
    ShowMessageFmt('Схема составлена %s',[s]);
    ShowMessage(Format('Схема составлена %s', [s]));

    end;
     
  3. -master-

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    18
    Form2.ShowModal() не хватает
     
Загрузка...

Поделиться этой страницей