Wie bekomme ich eine Shifttaste hin das sie klein schreibt ?

[Overkill]

Weis einer von euch wie man eine Shift - Taste hinbekommt wo am ende die Buchstaben klein geschrieben werden.
und wenn man wieder darauf klickt dann wieder Groß schreiben ?

--=Overkill=--

[DGL-luke]

also das versteh ich jetzt nicht so richtig...

willst du die shift-taste umdrehen? dann aktivier dein caps-lock...

[Overkill]

Nein ich will die Taste als Button und wenn du darauf klickst soll sie nach unten gehen und klein schreiben ?

--=Overkill=--

[tigerman33]

Das müsste eigentlich gehen:

Delphi-Quellcode:

procedure TForm1.ShiftButtonClick(Sender: TObject);
begin
  with ShiftButton do
    Tag := not Tag;
  Edit1.SetFocus; // Kann auch weg. Bewirkt nur, dass man nach dem Klick auf den Button direkt schreiben kann
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['A'..'Z'] then
    if ShiftButton.Tag <> 0 then
      Key := chr(ord(Key) + (ord('a')-ord('A'));
end;

Aber eine Bitte noch:
Formulier doch in Zukunft deine Fragen etwas, naja, sagen wir mal, liebevoller. So ein dahingeschmierter Einzeiler steigert weder Motivation noch Verständnis auf deine Frage zu antworten.
Und es ist für uns alle nicht besonders produktiv, immer erst nachfragen zu müssen, was du eigentlich genau meinst.

//edit:
ups, verlesen. Soll ja alles in Klein-, nicht in Großbuchstaben. Paar bugs berichtigt

[jim_raynor]

Und Schau dir TButton.Down an

[DGL-luke]

bzw. TSpeedButton.Down, nur einen Speedbutton kann man auch unten halten.

[3_of_8]

Müsste das nicht auch per API bei einem normalen Button gehen?

[Garfield]

Ein Speedbutton dürfte hier das richtige sein. Dann braucht man nur die Eigenschaft Down abfragen.