tastenkombination

xan553 · Beiträge: 67

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

markieren

Delphi-Quelltext

1:
2:

  Edit1.SelectAll;
  Edit1.CopyToClipboard;

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

jakobwenzel · Verfasst: 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?

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

xan553 · Beiträge: 67

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

jakobwenzel · Verfasst: Fr 26.01.07 21:36

Ich würds so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

uses ..., clipbrd;

{...}

Clipboard.AsText:=Edit1.Text;

_________________
I thought what I'd do was, I'd pretend I was one of those deaf-mutes.

xan553 · Beiträge: 67

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

Roadrunner116 · Verfasst: Fr 26.01.07 21:44

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

Gruß Roadrunner116

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Zu Tastenkombinationen schau Dir mal Shortcut und Actionlist an.

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

xan553 · Beiträge: 67

so danke für die schnelle hilfe ich habs mit

markieren

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 · Beiträge: 2195 XP D3Prof, D6Pers.

Das war doch aber nicht deine Frage. :wink:

markieren

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 · Beiträge: 67

warum das denn? läuft doch aufs gleiche raus

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

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

xan553 · Beiträge: 67

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme