unit kysymys;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, jpeg;

type
  TKysymysLomake = class(TForm)
    PanelKysy: TPanel;
    LabelKysy: TLabel;
    EditNimi: TEdit;
    ImageKysy: TImage;
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    Nimi : String;
    { Private declarations }
  public
    function AnnaNimi:string;virtual;
    { Public declarations }
  end;

var
  KysymysLomake: TKysymysLomake;

implementation

{$R *.DFM}

function TKysymysLomake.AnnaNimi: string;
begin
  result := nimi;
end;

procedure TKysymysLomake.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Resize := False;
end;

procedure TKysymysLomake.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if key = #13 then begin
   Nimi := EditNimi.Text;
   close;
 end;

 end;

end.