Thema: Delphi Strg+V im TEdit abfangen

Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#8

Re: Strg+V im TEdit abfangen

  Alt 24. Aug 2005, 01:10
Mit Mühe und Not gelingt es mir, das hier zu überlisten :

Delphi-Quellcode:
  ZulZeichen := [#8,#13,#27,'0'..'9'];
  with Sender as TStringGrid do begin
    if Col in MinusCols then
      ZulZeichen := ZulZeichen + ['-'];
    if Col in KommaCols then begin
      if pos (DecimalSeparator,Cells [Col,Row]) < 1 then // nur 1 Komma
        ZulZeichen := ZulZeichen + [DecimalSeparator];
    end;
    if col = 1 then begin
      if not (key in ZulZeichen) then
        key := #0;
Es geht um eine Zahleneingabe. 8) Und zwar mit : rechte Maustatste -> Einfügen. Wie schalte ich jetzt diese Maustaste ab ?
Gruß
Hansa
  Mit Zitat antworten Zitat