Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
21. Feb 2007
Das ganze jetzt mit Sonderzeichen, funktioniert jedoch nur bei einer deutschen Tastatur. Wenn VK_CAPITAL an ist, dann wird alles großgeschrieben.
procedure TForm1.Button1Click(Sender: TObject);
var
c: Char;
i: integer;
keyState: TKeyboardState;
Text: AnsiString;
begin
//sleep(2000);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
17. Jan 2007
Ok,
es war ein kleiner Fehler im Code, ich habe Ihn verbessert!
Der Code funktioniert auch nur wenn die 2. LED auf der Tastatur nicht eingeschaltet ist, deren Status muss man dann auch noch abfragen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
17. Jan 2007
Versuche es mal hiermit!
procedure TForm1.Button1Click(Sender: TObject);
var
c: Char;
i: integer;
begin
if length(Edit1.Text)> 0 then
begin
for i:= 0 to length(Edit1.Text) do