Edit OnExit

[xxxjedixxx]

Kod: Tümünü seç

procedure TF_Kullanicitanim.E_adiExit(Sender: TObject);
var TmpEdit: TEdit;
begin
  TmpEdit := TEdit(Sender);
  if  Trim(TmpEdit.Text) = '' then
  begin
    TmpEdit.Clear; 
    TmpEdit.SetFocus;
  end;
end;

[badkursat]

Kod: Tümünü seç

private
  procedure IcerikTemizleVeOdaklan(Sender: TCustomEdit);
  procedure AktifFormOnEditExitControl;
.
.
.
implementation
procedure TForm1.IcerikTemizleVeOdaklan(Sender: TObject);
begin
  if Sender is TCustomEdit then
    with TCustomEdit(Sender) do
    begin
      if Trim(Text) = EmptyStr then
        Begin
          Clear;
          SetFocus;
        End;
    end;
end;

type ClassHack = class(TCustomEdit);
//FormCreate'inde çalıştır.
procedure TForm1.AktifFormOnEditExitControl;
var ObjectIndex : Integer;
begin
  with Self do
    begin
      for ObjectIndex := 0 to ControlCount-1 Do
        if Controls[ObjectIndex] is TCustomEdit then
          ClassHack(TCustomEdit(Controls[ObjectIndex])).OnExit := IcerikTemizleVeOdaklan;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AktifFormOnEditExitControl;
end;