|
Registriert seit: 23. Mär 2003
Ort: Münster
3.750 Beiträge
Delphi 2010 Professional
|
Re: Tastatur --> Shift --> alle eventualitäten
2. Feb 2006, 21:35
Hi,
wie wärs mit
Delphi-Quellcode:
var
str: string;
begin
str := '';
if ssShift in Shift then
str := str + 'Shift + ';
if ssCtrl in Shift then
str := str + 'Strg + ';
if ssAlt in Shift then
str := str + 'Alt + ';
if Length(str) > 0 then
Delete(str, Length(str) - 2, 2);
Das sollte wirklich alles abdecken 
mfG
mirage228
David F.
May the source be with you, stranger.
 PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
|