AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein gibt es eine Funktion, die das Ausführen einer Prozedure ...
Thema durchsuchen
Ansicht
Themen-Optionen

gibt es eine Funktion, die das Ausführen einer Prozedure ...

Ein Thema von BAMatze · begonnen am 2. Sep 2008 · letzter Beitrag vom 2. Sep 2008
Antwort Antwort
BAMatze

Registriert seit: 18. Aug 2008
Ort: Berlin
759 Beiträge
 
Turbo Delphi für Win32
 
#1

Re: gibt es eine Funktion, die das Ausführen einer Prozedure

  Alt 2. Sep 2008, 15:59
Hallo noch mal an alle,

Hat zwar etwas gedauert aber mit euren Hinweisen und etwas probieren und lesen hat es nun geklappt. Bei der onkeydown-Funktion das Edit-Fensters wird im gegensatz zur onkeypress-Funktion das Key als Word und nicht als Char übergeben. So konnte ich das vk_delete benutzen und es funktioniert. Für andere die das gleiche Problem haben hier die endgültige Version:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var iIndex, iTemp: integer;

begin
  if key = vk_delete then
    begin
      //Löscht einen markierten Bereich im Editfenster (Vorraussetzung es ist etwas markiert!!)
      if Edit1.SelLength >0 then
        begin
          iEditpos := Edit1.SelStart;
          for iTemp := 0 to Edit1.SelLength - 1 do if Tisch[iIndex].sEditWert[iTemp] = #44
                                                  then Tisch[iIndex].bTastenregistrierung := false;
          delete(Tisch[iIndex].sEditWert,Edit1.SelStart+1,Edit1.SelLength);
        end
      //Löscht das Zeichen nach dem Cursor (Voraussetzung es ist nichts markiert)
      else
        begin
          iEditPos := Edit1.SelStart - 1;
          if Tisch[iIndex].sEditWert[Edit1.SelStart] = #44 then Tisch[iIndex].bTastenregistrierung := false;
          delete(Tisch[iIndex].sEditWert,Edit1.SelStart+1,1);
          iEditPos := iEditPos + 1;
        end;
    end;
end;
Wie gesagt, wichtig war bei mir die Initialisierung des Keys als Word und nicht als Char.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz