Form des blnkenden Textcursor bei TEdit ändern

[hathor]

Zitat von Willie1:

Hallo Leute,
bei dem Überweisungscomputer der Postbank wurde bei der Eingabe ein blinkendes Kästchen als Cursor benutzt, was sehr gut zu sehen war...

Ich um Nachsicht, ich sehe schlecht und bin daher schlecht bei der Rescheche. Danke.

MfG
Willie

Mal eine Frage zur Aufklärung:
Ist das Dein Arbeitsplatz (Dann setze Dich mit dem Behindertenbeauftragten in Verbindung) oder was?

Wenn Du zuhause über einen Internet-Browser Überweisungen tätigst,
warum änderst Du dann nicht WINDOWS für Sehbehinderte (Center für erleichterte Bedienung) oder vergrösserst das Browser-Bild (z.B. STRG + bei FIREFOX).

Für eigene DELPHI-Programme:

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpinEdit1Change(Sender: TObject);
  private
    { Private-Deklarationen }
        OrignalValue : Integer;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  NewValue : Integer;
begin
  Screen.Cursor := crHourGlass;
  NewValue := SpinEdit1.Value;
  SystemParametersInfo(SPI_SETCARETWIDTH,
                       0,
                       Pointer(NewValue),
                       SPIF_SENDCHANGE);

  Screen.Cursor := crDefault;
  Edit1.SetFocus;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SystemParametersInfo(SPI_SETCARETWIDTH,
                       0,
                       Pointer(2), // Breite des Carets
                       SPIF_SENDCHANGE);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
SpinEdit1.MaxValue:=20;
SpinEdit1.Value:=10;
  SystemParametersInfo(SPI_GETCARETWIDTH,
                       0,
                       @OrignalValue,
                       0);
end;

procedure TForm2.SpinEdit1Change(Sender: TObject);
begin
  Button1.Click;
end;

end.