/
YakuninAV
/
Convertors
Обзор
Документация
Войти
/
YakuninAV
/
Convertors
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Core/dbdMessageFrm.pas
48 строк
1 KB
YakuninAV
begin with gitflick
31 июл 2026, 15:21
31 июл 2026, 15:21
1dc0fc6
Код
Авторство
О чём код?
unit dbdMessageFrm; interface uses {$IFDEF ISDELPHIXE2} Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; {$ELSE} Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; {$ENDIF} type TTdbdMsgForm = class(TForm) mmoLog: TMemo; btnOK: TButton; btnIgnore: TButton; btnCancel: TButton; private { Private declarations } public { Public declarations } end; var dbdMsgForm: TTdbdMsgForm; function ShowMessageForm(const Msg: string='OK'; const Cap: string='Сообщение'; const Btns: Byte=1): Integer; implementation {$R *.dfm} function ShowMessageForm(const Msg: string='OK'; const Cap: string='Сообщение'; const Btns: Byte=1): Integer; var f: TTdbdMsgForm; begin f:=TTdbdMsgForm.Create(nil); try f.Caption:=Cap; f.mmoLog.Text:=Msg; f.btnCancel.Enabled:= (Btns or 2)=1; f.btnIgnore.Enabled:= (Btns or 4)=1; Result:=f.ShowModal; finally f.Free; end; end; end.