Wie bekomme ich eine Shifttaste hin das sie klein schreibt ?

[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