
11.10.2009, 17:16
|
 |
Активный
|
|
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
|
|
Добавляешь компонент-кнопку на форму, кликаеш по ней пару раз, появится редактор кода, в сгенерированную функцию (прим.: Button1Click) впиши
Код:
ShowMessage('Здесь текст'); //простой вывод текст
или расширено:
Код:
MessageDlg('Здесь текст',mtError {здесь тип сообщения, может быть mtWarning, mtError, mtInformation, mtConfirmation, mtCustom},{здесь набор кнопок, может быть mbYesNo, mbYesNoCancel, mbYesAllNoAllCancel, mbOKCancel, mbAbortRetryIgnore, mbAbortIgnore},0 {здесь нуль можно оставить});
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
|