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

• #1840 zka67 őstag dany27 #1839

  Új Válasz 2010-10-19 20:39:02 #1840

  Ú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 #1839 üzenetére

  Nem kell ennyire túlbonyolítani!

  procedure TMainForm.EditKeyPress(Sender: TObject; var Key: Char);
  begin
  if Length( TEdit(Sender).Text ) > 10 then
  TEdit(Sender).Text := '';
  end;

  Mindhárom Edit-ednek ugyanazt az OnKeyPress eventet állítod be (ezért neveztem át Edit1KeyPress-ről) és a TEdit(Sender)-rel megkapod a hívó elem adatait.

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