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

• #1525 g4dg3t senior tag Rolly #1523

  Új Válasz 2007-04-05 11:35:40 #1525

  Ú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

  

  g4dg3t

  senior tag

  válasz Rolly #1523 üzenetére

  celszeru beszerezni egy normalis NumericEdit komponenst, de ha nem akarsz kulso stuffot es tenyleg nincs szukseged mas ficsorre akkor a TEdit.OnKeyPress esemenyet kezeld le az alabbi koddal:
  
  const EDITMAXVALUE = 10000;
  var tmpNum: integer;
  begin
  if Key in ['0'..'9'] then begin
  tmpNum:=StrToIntDef((Sender as TEdit).Text + Key,0);
  if tmpNum > EDITMAXVALUE then Key:=#0;
  end
  else
  if Key <> Char(VK_BACK) then Key:=#0;
  end;
  
  
  [Szerkesztve]

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