Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Catalog · How the catalog works
Anything · Lazarus or Delphi
Random projectRandom project

dialogs4delphi

Dialog Boxes for Delphi Project (VCL and uniGUI)

View on GitHub

Member rating

No ratings yet.

Sign in to rate this project.

README

Dialog Boxes for Delphi Projects

This component is a dialog factory for Delphi projects (VCL and uniGUI). It uses native resources to create dialogues. Uses native build directives to identify the project type (VCL / uniGUI).

Why use? Allows use the same code for desktop application (VCL) and web applications (uniGUI).

Prerequisites

  • [Optional] For ease I recommend using the Boss for installation
    • Boss - Dependency Manager for Delphi
  • For VCL projects you need
    • BlockUI-VCL - Block User Interface for VCL Projects (Delphi)
  • For uniGUI projects you need to install
    • uniGUI - Web Application Framework for Embarcadero Delphi
    • Set in Project > Options > Delphi Compiler > Conditional defines the compilation directive for your application:
      • UNIGUI_VCL for stand alone application
      • UNIGUI_SERVICE for windows service application
      • UNIGUI_ISAPI for ISAPI library

Installation using Boss (dependency manager for Delphi applications)

pascal
boss install github.com/viniciussanchez/dialogs4delphi

Manual Installation

Add the following folders to your project, in Project > Options > Resource Compiler > Directories and Conditionals > Include file search path

pascal
../dialogs4delphi/src
../dialogs4delphi/src/modal
../dialogs4delphi/src/input

Getting Started

You need to use Dialogs4D.Factory

pascal
uses Dialogs4D.Factory;

Success dialog box

pascal
begin
  TDialogs.Info('Information');
end;

[VCL]

dialogs4delphi

[uniGUI]

dialogs4delphi

Error dialog box

pascal
begin
  TDialogs.Error('Error');
end;

[VCL]

dialogs4delphi

[uniGUI]

dialogs4delphi

Warning dialog box

pascal
begin
  TDialogs.Warning('Warning');
end;

[VCL]

dialogs4delphi

[uniGUI]

dialogs4delphi

Confirm dialog box

pascal
begin
  if TDialogs.Confirm('Warning') then
    Continue;
end;

[VCL]

dialogs4delphi

[uniGUI]

dialogs4delphi

Input dialog box

pascal
var
  Name: string;
begin
  Name := TDialogs.Input('Your name:', 'Default value');
end;

[VCL]

dialogs4delphi

[uniGUI]

dialogs4delphi