Hi,
deine Methodennamen stimmen nicht:
Delphi-Quellcode:
unit Pieptonunterdruecken;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
CheckBox1: TCheckBox;
Button1: TButton;
procedure Edit1Change(Sender: TObject); <. hier steht Edit1Change
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//hier KeyPress
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if CheckBox1.Checked
then if key = #13
then key := #0
end;
end.
Du verwendest hier 2 verschiedene Methodennamen - Edit1Change ist dabei unten bei Implementation nicht drin (Fehlermeldung: E2065 Ungenügende Forward- oder External-Deklaration: 'TForm1.Edit1Change') und die Edt1KeyPress ist in TForm1 nicht deklariert (Fehler: E2003 Undeklarierter Bezeichner: 'Edit1KeyPress') Rest sind Folgefehler von den zwei.
Lösung: Stell den Cursor auf die Typdefinition von TFORM1 und drückt STRG+Shift+C, dann verbinde im Objektinspektor noch das event OnKeyPress des Edit1 mit der Implementierung in dem Du entweder auf OnKeyPress einen Doppelklick ausführst oder aus der Combobox die entsprechende Methode auswählst...
GRüße