Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Диалоговые окна



Вернуться к списку функций
 Диалог с кнопками Yes, No, Cancel (компонент). Работает примерно так же как TDialog (для удобства).

 Прислал: Святослав (Saint Petersburg) ( 11 августа 2002 г. )
©  (C) NetBreaker666[AWD]<SP666>@Svjatoslav_Lisin - т.е. я сам
 Описание:
TYesOrNoDialog.ShowNoButton - показывать ли кнопку No.
TYesOrNoDialog.ShowCancelButton - показывать ли кнопку Cancel.
TYesOrNoDialog.Caption - заголовок диалгоа.
TYesOrNoDialog.Text - текст диалога.
function TYesOrNoDialog.Execute:Integer - показывает диалог и возвращает значение MessageBox'a

 Зависимости:
Windows, Messages, SysUtils, Classes, Dialogs, Forms;

 Ограничения:
Проверено в D6 под WinXP, Win2K, Win98.

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Диалог с кнопками Yes, No, Cancel (компонент). Работает примерно так же как TDialog (для удобства).

TYesOrNoDialog.ShowNoButton - показывать ли кнопку No.
TYesOrNoDialog.ShowCancelButton - показывать ли кнопку Cancel.
TYesOrNoDialog.Caption - заголовок диалгоа.
TYesOrNoDialog.Text - текст диалога.
function TYesOrNoDialog.Execute:Integer - показывает диалог и возвращает значение MessageBox'a

Зависимости: Windows, Messages, SysUtils, Classes, Dialogs, Forms;
Автор:       Святослав, lisin@asicdesign.ru, ICQ:138752432, Saint Petersburg
Copyright:   (C) NetBreaker666[AWD]<SP666>@Svjatoslav_Lisin - т.е. я сам
Дата:        11 августа 2002 г.
***************************************************************** }

unit YesOrNoDialog;

interface

uses
  Windows, Messages, SysUtils, Classes, Dialogs, Forms;

type
  TYesOrNoDialog = class(TComponent)
  private
    { Private declarations }
    _OnEx:TNotifyEvent;
    __SNO:Boolean;
    __SC:Boolean;
    _Y,_N,_C:Boolean;
    _Caption, _Text:String;
  procedure SetNo(S:Boolean);
  procedure SetCancel(S:Boolean);
  protected
    { Protected declarations }

  public
    { Public declarations }
    property Yes:Boolean read _Y;
    property No:Boolean read _N;
    property Cancel:Boolean read _C;

  published
    { Published declarations }
    property ShowNoButton:Boolean read __SNO write SetNo ;
    property ShowCancelButton:Boolean read __SC write SetCancel ;
    property Caption:String read _Caption write _Caption;
    property Text:String read _Text write _Text;
    property OnExecute:TNotifyEvent read _OnEx Write _OnEx;
    function Execute:Integer;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('NetBreakers', [TYesOrNoDialog]);
end;
//Voen secret.
// 2301900
Function TYesOrNoDialog.Execute:Integer;
var Hn:THandle;
Begin
Hn:=Application.Handle;
if __SNO and __SC then Begin
                     Result:=MessageBox(Hn,PChar(text),PChar(Caption),MB_YESNOCANCEL);
                     _Y:=(Result=6)or(Result=1);
                     _N:=Result=7;
                     _C:=REsult=2;
                     Exit;
                     End;
if __SNO then Begin
                     Result:=MessageBox(Hn,PChar(text),PChar(Caption),MB_YESNO);
                     _Y:=(Result=6)or(Result=1);
                     _N:=Result=7;
                     _C:=REsult=2;
                     Exit;
                     End;
if __SC then Begin
                     Result:=MessageBox(Hn,PChar(text),PChar(Caption),MB_OKCANCEL);
                     _Y:=(Result=6)or(Result=1);
                     _N:=Result=7;
                     _C:=REsult=2;
                     Exit;
                     End;
Result:=MessageBox(Hn,PChar(text),PChar(Caption),MB_OK);
_Y:=(Result=6)or(Result=1);
_N:=Result=7;
_C:=Result=2;

End;


procedure TYesOrNoDialog.SetNo(S:Boolean);
Begin
__SNO:=S;
End;
procedure TYesOrNoDialog.SetCancel(S:Boolean);
Begin
__SC:=S;
End;

end.


Вернуться к списку функций

Наверх ▲