Abschlußprogramm Info KLasse 11!!!

[Pr0g]

Zitat von BluesKid:

zu 1.: In einen Memo nur Zahlen zulassen

Eine wohl bessere Lösung, als if not key in... wäre folgende:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(
    Memo1.Handle,
    GWL_STYLE,
    GetWindowLong(
      Memo1.Handle,
      GWL_STYLE
    ) or ES_NUMBER
  );
end;

MfG Pr0g