Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - tastenkombination


xan553 - Fr 26.01.07 21:22
Titel: tastenkombination
so nachmal hy

ich habe mir gedacht das es meistens fast genausoschnell geht auf einen butten zu klicken und dann einen text wieder mit strg+v einzufügen
wie wenn ich strg+c und strg+v verwende, deshalb habe ich mir gedacht ob es möglich ist entweder einen code per tastenkürzel auszuführen oder nur den button per tastebkürzel zu betätigen.

hier wäre der code


Delphi-Quelltext
1:
2:
  Edit1.SelectAll;
  Edit1.CopyToClipboard;


und der zu betätigende button wäre Button1.


jakobwenzel - Fr 26.01.07 21:30

Und wozu schreibste das jetzt hier hin?
Wenn das ein Tipp für andere sein soll, musses in die Delphi-Library.
Oder gehts überhaupt nicht und du willst Hilfe?


xan553 - Fr 26.01.07 21:33

ich bräuchte hilfe das heißt ich weiß nicht wie ich das anstellen könnte,
deswegen frage ich hier um hilfe


jakobwenzel - Fr 26.01.07 21:36

Ich würds so machen:

Delphi-Quelltext
1:
2:
3:
4:
5:
uses ..., clipbrd;

{...}

Clipboard.AsText:=Edit1.Text;


xan553 - Fr 26.01.07 21:39

udn wo würde ich in diesem code meine tastenkombination einfügen?


Roadrunner116 - Fr 26.01.07 21:44

probiers mal mit OnKeyDown.....
hab e snochnicht benutzt, ist aber angäblich nicht so schwehr.....

Gruß Roadrunner116


Blackheart666 - Fr 26.01.07 21:51

Zu Tastenkombinationen schau Dir mal Shortcut und Actionlist an.


xan553 - Fr 26.01.07 22:04

so danke für die schnelle hilfe ich habs mit


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=vk_F1) then Edit1.SelectAll;
  if (key=vk_F1) then Edit1.CopyToClipboard;
end;


hinbekommen

danke nochmal


Blackheart666 - Fr 26.01.07 22:11

Das war doch aber nicht deine Frage. :wink:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;  
  Shift: TShiftState);  
begin  
  if (key=vk_F1) then 
  begin
    Edit1.SelectAll;  
    Edit1.CopyToClipboard; 
  end;
end;


xan553 - Fr 26.01.07 22:32

warum das denn? läuft doch aufs gleiche raus


Blackheart666 - Fr 26.01.07 23:25

Nicht ganz, mit Anweisungsblöcken kannst Du Dir mitunter eine ganze Menge Tiparbeit und Ärger sparen. :wink:


xan553 - So 28.01.07 16:06

ok da hast du recht, danke für den tipp