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

• #1404 btotyi tag bukica #1403

  Új Válasz 2007-01-10 21:11:15 #1404

  Ú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

  

  btotyi

  tag

  válasz bukica #1403 üzenetére

  Ez működik :
  
  Ctrl + 0 (nem numerikus taszton !)
  
  
  procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
  If (key = $30) and (ssCtrl in Shift)
  then
  begin
  edit1.Text := edit1.Text + 'Ř';
  end;
  end;
  
  
  
  Az edit mező Font propertyn állíts be pld Arial fontot.

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