Edit1 Условие

[cezer]

Здравствуйте! Как сделать так если Edit1 пусто то кнопка не активна, но как только я ввожу буквы или цифры кнопка становиться активной?

[cezer]

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

Здравствуйте! Как сделать так если Edit1 пусто то кнопка не активна, но как только я ввожу буквы или цифры кнопка становиться активной?

использую этот код

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text<>'' then Button1.Enabled:=true else Button1.Enabled:=false;
end;


Форма открывает кнопка активная хотя Edit1 пусто нажимаю 1 и удаляю цифру 1 кнопка становиться не активной((((

[rdama]

На форме в событии onShow напиши Button1.Enabled:=false
Чего уж совсем то .. казаться.
Ну и код твой несколько поправить надо

if length(Trim(Edit1.Text)) > 0

[Serge_Bliznykov]

на событие создания формы OnCreate вставьте код:

  Button1.Enable := Trim(Edit1.Text)<>'';

[ych_del]

А зачем OnCreate? Предположим, что еще на стадии рисования формы Edit1.Text в ObjectInspector установлено в '' (как делается в 95% случаев).

with TForm1.Create(Application) do
try
   Button1.Enabled := Trim(Edit1.Text) <> '';
   Edit1.Text := 'Текст есть, но кнопка задизаблена';
   ShowModal;
finally
   Free;
end;

Лучше таки в OnShow. Ну и в OnChange;

procedure TForm1.Edit1Change(Sender: TObject);
begin
   Button1.Enabled := Trim(Edit1.Text) <> '';
end;

P.S. cezer, использовать ли Trim или нет - зависит от твоей задачи.

[Serge_Bliznykov]

А поясните, плиз, что Вы имели в виду насчёт Create...

вроде бы, никаких косяков я не увидел:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Button1.Enabled := Trim(Edit1.Text)<>'';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Enabled := Trim(Edit1.Text)<>'';
  Edit1.Text := 'Текст есть, и кнопка НЕ задизаблена';
end;

end.

во вложении и исходный код и скомпилированный exe...

[ych_del]

Пардон, затупил. Если есть OnChange - действительно, никаких.