V Edite iba a,b,c,d ----- POMOOOOOOOC – Delphi – Fórum – Programujte.com

Zdravim... ako naprogramujem aby do editu mi dovolil zapisat iba znaky a,b,c alebo d??? a ked su zapisane ako malymi pismenami aby sa zmenili na velke?? napr. a ----> A Dakujeeeem

ta prva cast takto:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

  if not (Key in ['a', 'A', 'b', 'B', 'c', 'C', 'd', 'D', #8]) then Key := #0;

end;

  if Length(Edit1.Text) > 0 then

    Edit1.Text := UpperCase(Edit1.Text);