unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;



const

mbYesNoCancel = [mbYes, mbNo, mbCancel];

mbOKCancel = [mbOK, mbCancel];

mbAbortRetryIgnore = [mbAbort, mbRetry, mbIgnore];



type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private



public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

var

FName: string;

ClicOK: boolean;

begin

FName := 'Įveskite vardą';

Label1.Caption := FName;

ClicOK := InputQuery('Įvedimas', 'Įveskite savo vardą:', FName);
if ClicOK then

Label1.Caption := 'Jūsų vardas: ' + FName + '!';



end;



procedure TForm1.Button2Click(Sender: TObject);

var

MString: string;

begin

MString:= InputBox('Input Box', 'Prompt', 'Default string');




end;



procedure TForm1.Button3Click(Sender: TObject);

var

Resp: word;

begin

MessageDlg('Jūs pasiliekate programoje!', mterror, [mbOk], SW_ShowNormal);



end;



end.