Вопросы новичка!

[Dimixis]

Я только начал изучать Делфи 7, делаю буквально первые шаги.
Попробовал написать простенькую программку, и у меня возникли некоторые вопросы.

Программка вот:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit1: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    OBNUL: TButton;
    EXIT: TButton;
    RASCHET: TButton;
    J1: TMenuItem;
    procedure EXITClick(Sender: TObject);
    procedure OBNULClick(Sender: TObject);
    procedure RASCHETClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
Procedure BYTE;
var bit,byte,kb,mb,gb,tb:real;
 begin
//Ввод данных
bit:= StrToInt(Form1.Edit1.Text);
byte:=StrToInt(Form1.Edit2.Text);
kb:=StrToInt(Form1.Edit3.Text);
mb:=StrToInt(Form1.Edit4.Text);
gb:=StrToInt(Form1.Edit5.Text);
tb:=StrToInt(Form1.Edit6.Text);
//Условие:
//Если бит
if (byte=0)and(kb=0)and(mb=0)and(gb=0)and(tb=0) then
begin
byte:=bit/8;
kb:=byte/1024;
mb:=kb/1024;
gb:=mb/1024;
tb:=gb/1024;
Form1.Edit2.Text:=FloatToStr(byte);
Form1.Edit3.Text:=FloatToStr(kb);
Form1.Edit4.Text:=FloatToStr(mb);
Form1.Edit5.Text:=FloatToStr(gb);
Form1.Edit6.Text:=FloatToStr(tb);
end;
//Если байт
if (bit=0)and(kb=0)and(mb=0)and(gb=0)and(tb=0) then
begin
bit:=byte*8;
kb:=byte/1024;
mb:=kb/1024;
gb:=mb/1024;
tb:=gb/1024;
Form1.Edit1.Text:=FloatToStr(bit);
Form1.Edit3.Text:=FloatToStr(kb);
Form1.Edit4.Text:=FloatToStr(mb);
Form1.Edit5.Text:=FloatToStr(gb);
Form1.Edit6.Text:=FloatToStr(tb);
end;
//Если килобайт
if (byte=0)and(bit=0)and(mb=0)and(gb=0)and(tb=0) then
begin
byte:=kb*1024;
bit:=byte*8;
mb:=kb/1024;
gb:=mb/1024;
tb:=gb/1024;
Form1.Edit2.Text:=FloatToStr(byte);
Form1.Edit1.Text:=FloatToStr(bit);
Form1.Edit4.Text:=FloatToStr(mb);
Form1.Edit5.Text:=FloatToStr(gb);
Form1.Edit6.Text:=FloatToStr(tb);
end;
//Если мегабайт
if (byte=0)and(kb=0)and(bit=0)and(gb=0)and(tb=0) then
begin
kb:=mb*1024;
byte:=kb*1024;
bit:=byte*8;
gb:=mb/1024;
tb:=gb/1024;
Form1.Edit2.Text:=FloatToStr(byte);
Form1.Edit3.Text:=FloatToStr(kb);
Form1.Edit1.Text:=FloatToStr(bit);
Form1.Edit5.Text:=FloatToStr(gb);
Form1.Edit6.Text:=FloatToStr(tb);
end;
//Если гигабайт
if (byte=0)and(kb=0)and(mb=0)and(bit=0)and(tb=0) then
begin
mb:=gb*1024;
kb:=mb*1024;
byte:=kb*1024;
bit:=byte*8;
tb:=gb/1024;
Form1.Edit2.Text:=FloatToStr(byte);
Form1.Edit3.Text:=FloatToStr(kb);
Form1.Edit4.Text:=FloatToStr(mb);
Form1.Edit1.Text:=FloatToStr(bit);
Form1.Edit6.Text:=FloatToStr(tb);
end;
//Если терабайт
if (byte=0)and(kb=0)and(mb=0)and(gb=0)and(bit=0) then
begin
gb:=tb*1024;
mb:=gb*1024;
kb:=mb*1024;
byte:=kb*1024;
bit:=byte*8;

Form1.Edit2.Text:=FloatToStr(byte);
Form1.Edit3.Text:=FloatToStr(kb);
Form1.Edit4.Text:=FloatToStr(mb);
Form1.Edit5.Text:=FloatToStr(gb);
Form1.Edit1.Text:=FloatToStr(bit);
end;

end;


//Кнопка выход
procedure TForm1.EXITClick(Sender: TObject);
begin
close;
end;

//Кнопка обнуления
procedure TForm1.OBNULClick(Sender: TObject);
begin
Form1.Edit1.Text:='0';
Form1.Edit2.Text:='0';
Form1.Edit3.Text:='0';
Form1.Edit4.Text:='0';
Form1.Edit5.Text:='0';
Form1.Edit6.Text:='0';
end;

//Кнопка рассчета
procedure TForm1.RASCHETClick(Sender: TObject);
begin
BYTE;
end;

end.

Возникли следуюшие вопросы:
1)Как сделать так, чтобы в полях ввода можно было вводить только цифры?
2)Как сделать так, чтобы расчет производился не только по нажатию кнопки, но и по нажатию ENTER.
3)Как сделать окошко (например о программе), и как его вызывать через команду в меню?
4)Я вообще правильно пишу прогу? (сама структура проги)
5)Как сделать так, чтобы если нажал кнопку рассчет, она становилсь неактивной до тех пор, пока не нажмешь обнулить?

Прошу написать как все это реализовать.

Вот на всякий случай сам проект:

[mutabor]

Тебе бы книгу по Delphi7 купить, или скачай в инете.

[mutabor]

Ладно отвечу:
1. Читай до конца http://www.programmersforum.ru/showthread.php?t=4535
2. Смотри там же
3. Функция MessageDlg параметры смотри в хелпе (это если о программе), если же полноценное окно то file>new form или file>new frame
4. Раз компилируется значит правильно
5. Свойство кнопки Enabled

[Dimixis]

Огромное спасибо. Со всем разобрался, кроме пункта номер 1

[VVM]

Используй вместо TEdit TMaskEdit.

[Dimixis]

Это ты про что?

[InternetStranger]

Можно в принципе решить задачу "в лоб":
у Tedit есть свойство OnChange - контролирует любое изменение в едите! Для этого свойства пишешь обработчик содержимого.
Не цифры можно проконтролировать
if not(s[i] in '0'..'9') then ...

[pu4koff]

а лучше в OnKeyDown/OnKeyPress смотреть что нажато и если не цифра, то Key := 0/#0

[mutabor]

Все верно, только OnChange это не свойство, а событие. Различать надо

[InternetStranger]

Сообщение от mutabor

Все верно, только OnChange это не свойство, а событие. Различать надо

Заболтали меня. вот пальцы об клаву заплетаются.