Új hozzászólás Aktív témák

• #1850 zka67 őstag dany27 #1848

  Új Válasz 2010-10-30 19:46:23 #1850

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zka67

  őstag

  válasz dany27 #1848 üzenetére

  Külön opció nincs, de nem nehéz megírni. Csinálsz egy új osztályt, pl. TGrayEdit-et:

  type TGrayEdit = class(TCustomEdit)
  private
  procedure SetEnabled(Value : boolean);
  function GetEnabled : boolean;
  public
  property Enabled : boolean read GetEnabled write SetEnabled;
  end;

  Megírod hozzá az Enabled funkciókat:

  procedure TGrayEdit.SetEnabled(Value : boolean);
  begin
  TControl(Self).Enabled := Value;
  if Value then Color := clWhite else Color := clSilver;
  end;
  
  function TGrayEdit.GetEnabled : boolean;
  begin
  Result := TControl(Self).Enabled;
  end;

  A form-odban vagy ahol használod:

  type
  TMainForm = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  private
  
  public
  GrayEdit : TGrayEdit;
  
  end;

  Létrehozod a GrayEdit-e(ket):

  procedure TMainForm.FormCreate(Sender: TObject);
  begin
  GrayEdit := TGrayEdit.Create(Self);
  with GrayEdit do begin
  Parent := MainForm;
  Left := 8;
  Top := 8;
  Text := 'Proba';
  end;
  end;

  és használhatod :

  procedure TMainForm.Button1Click(Sender: TObject);
  begin
  GrayEdit.Enabled := not GrayEdit.Enabled;
  end;

Új hozzászólás Aktív témák