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.