Strg + V wie Einfügen aber wie ???

[Armageddon]

Hallöle,

ich probier hier nun schon ne Ewigkeit herum aber komme einfach nicht dahinter.

Ich möchte daß ich wenn ich in ein Editfeld klicke und die Tastenkobination Strg+V drücke der Inhalt der Zwischenablage eingefügt wird!

Im Moment sieht es so aus:

Delphi-Quellcode:

procedure TForm1.EditKeyDownMarkiert(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((Shift = [ssAlt]) and (Key = VK_F8)) then Einfuegen1Click;
end;

Natürlich ist das ssAlt und VK_F8 Falsch. Das weiß ich selber! Drum Frag ich ja. Aber zum Testen tut es das ja. Wobei der Compiler beim Einfuegen1Click mit ner Fehlermeldung hängen bleibt. Einfuegen1Click ist eine Procedure die ich für mehrere Editfelder verwende. Sollte also wenn möglich ausgeführt werden.

Gruß Arma.

:cat:

[Dagon]

Ich verstehe dein Problem nicht ganz. Wenn du Text in einem Edit markierts und Strg + C drückst, wird der Inhalt in die Zwischenablage eingefügt.

[ustra]

Hi,

waas gibt er denn für eine Fehlermeldung aus? Das wäre schon mal interessant zu wissen.

Beste Grüße
Ulrich

[Armageddon]

:roll: :roll: :roll:

Ähm vielleicht ich nix gut schrieben deoitze grammatik und satz aber ich wollen das ich bei tasde strg+v die inhalt von die ablageinzwischen in die feld eingefügt wird!!! du verstehen ?


Arma Gruß. :wink:

[ustra]

Hallo,

das geht auch so, ohne das Du das extra programmieren mußt. Probier das mal aus. Einfach ein Editfeld nehmen und kompilieren, ohne das Du etwas an Code dahinter setzt für das onKeydown Ereignis. Er fügt automatisch den Inhalt ein.

Beste Grüße
Ulrich

[Armageddon]

Hallo zusammenm,

also nochmal.

Zitat:

das geht auch so, ohne das Du das extra programmieren mußt

Ja das ist mir schon klar aber ich muß das nunmal so machen wie ich es haben will. Da führt kein Weg drann vorbei!

Ich komm einfach nicht drauf ich könnt :kotz:


Gruß Arma.

[Armageddon]

So das meiste hab ich jetzt selbst rausgefunden.

Ich muß jetzt nur noch die Procedure aufrufen aber da meckert der Compiler mit "nicht genügend wirkliche Parameter"

Code wie folgt:

Delphi-Quellcode:

procedure TForm1.EditKeyDownMarkiert(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if ((Shift = [ssCtrl]) and (Key = $56)) then Einfuegen1Click; 
end;

:coder:

[Alexander]

Musst du vielleicht einen Sender übergeben?

Schau dir auch mal die ActionListen an, damit geht das mit dem ShortCut wesentlich leichter.