SynEdit und Entf

[kingflo]

Hallo ich habe ein großes problem.
Man kann in meinem Syneditfeld keine einzelne Bustaben mit der Entf Taste entfernen.
Sondern nur Makierten Text kann mir jemand sagen woran das liegt?

[sniper_w]

Zitat:

Man kann in meinem Syneditfeld keine einzelne Bustaben mit der Entf Taste entfernen.

Und was ist bitte "Syneditfeld"?

[kingflo]

Ich meine Syneditor

[kingflo]

Wenn ich manuell das ereignis KeyDown abfrage passiert auch nichts.
Also ich habe die Taste Entf abgefragt und wenn diese gedrückt ist sollte ein ereignis starten, aber nichts passiert

[sniper_w]

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
 if Msg.message = WM_KEYDOWN then
        if Msg.wParam = VK_DELETE then Caption := IntToStr(Random(1000));
 Handled := False;
end;

Aber ich weiss immer nocht nicht was "Syneditor" ist. Sry.

[kingflo]

Syneditor von Typ TSynEdit Package Synedit siehe sourceforge.net

was soll ich mit dem Code jetzt machen? bzw was soll der mir bringen?

[sniper_w]

Zitat:

Wenn ich manuell das ereignis KeyDown abfrage passiert auch nichts.
Also ich habe die Taste Entf abgefragt und wenn diese gedrückt ist sollte ein ereignis starten, aber nichts passiert

In meinem Code wird ein Ereignis zum Leben aufgerufen, und dabei wird Caption von dem Formular auf eine Random Zahl geändert.

Mach es so:

Delphi-Quellcode:

type
  TMyEdit = class(TEdit)
  procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MyEdit : TMyEdit;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMyEdit.WMKeyDown(var Message: TWMKeyDown);
begin
 // etaws damit man FeedBack bekommt
 if Message.CharCode = VK_DELETE then Self.Color := RGB(Random(256),Random(256),Random(256));

 inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 MyEdit := TMyEdit.Create(self);
 MyEdit.Parent := Self;
 MyEdit.Visible := True;
 MyEdit.Top := 10;
 MyEdit.Left := 10;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 MyEdit.Free;
end;

Statt TEdit nehme TSynEdit. Sollte funktionieren.

[kingflo]

Das hilft mir leider auch nicht.

Also mein Problem ist, dass die entf taste im erreignis KeyDown nicht reagiert im KeyUp aber geht sie.

Alle anderen Tasten gehen auch im key dowm nur die entf taste nicht.

Bitte ich brauche hilfe.

[sniper_w]

Kannst du mir die Link zu der Komponente posten. Ich bin 100% sicher dass es so geht.

[kingflo]

Neu du hast mich falsch verstanden.

Dein Code ist ja richtig und läuft auch.
Allerdings muss ich im Projekt die entf taste irgendwie als HotKey oder shortcut benutzt haben oder so.
Es liegt auch nicht an Synedit den eigentlich kann man da entfernen.
Und wenn ich mit deinem Code ein neues Edit vom Typ TsynEdit erstelle, dann geht es bei dem neuen auch.

Kann auch sein, dass ich einen Fehler in den Keystrokes von SynEdit habe.

Aber trotzdem Synedit findest du auf http://www.sourceforge.net und dann einfach nach SynEdit suchen