VPF::[Delphi] Неактивная кнопка... - Форум программистов

pomogite

Дата 12.4.2006, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var traf,mb,summa:real;
    stroka:string;

begin
  traf:=strtofloat(edit1.Text);
  mb:=strtofloat(edit2.Text);
  summa:=traf*mb;
  stroka:=floattostr(summa);
  edit3.Text:=stroka;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close();
end;

end.

Помогите пожалуйста, как сделать чтобы кнопка button1 была не активной если не заполнены поля edit1 и edit2, и как можно сделать чтобы в них можно было ввести только цифры и запятую...

pomogite

Дата 12.4.2006, 18:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

Ну что так ни кто и не поможет?

Это сообщение отредактировал(а) pomogite - 13.4.2006, 09:23

DimassS

Дата 12.5.2006, 05:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: нет
Всего: 2

Цитата

как сделать чтобы кнопка button1 была не активной если не заполнены поля edit1 и edit2

Смотри свойство кнопки Enabled

Цитата

как можно сделать чтобы в них можно было ввести только цифры и запятую...

Проверяй посимвольно:

Код


Var 
str,Stroka: string;
Len,i:integer;

......................
Stroka:=edit1.text;
Len:=Length(edit1.text);
For i:=1 to Len do
If Stroka[i]=' 'ну и так далее

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »