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

  • Автор темы Jaspe
  • Дата начала
J

Jaspe

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

sinkopa

Well-known member
17.06.2009
344
4
#2
Здравствуйте!
У меня такой вопрос: В моей программе проверяется правильность составления электрической схемы
И мне нужно после проверки результатов вывести на экран сообщение о результате(ошибка или правильно составлено)
как мне это сделать?
заранее спасибо
:) незачто
Код:
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;