Deutsches Lazarusforum

Hi Cristian,

ok danke.

Hallo knight,

Hast du den entsprechenden Programmteil in einen try .. except Block gepackt?
knight

ich habe kein eigenen Programmteil von dem Button, denn der ist Bestandteil von der Komponennte TDBNavigator.
Genau hier in der Buttonklasse schmiert das Programm ab...
http://www.abload.de/img ...

Hi Leute,

ich habe mir eine kleine Form zum testen gebastelt, und zwar mit den Komponenten ZConnection, Zquery, DBNavigator, Datasource, DBGrid und TEdit Felder zum eingeben der Zugansdaten für den MySql-Server. Klappt eigendlich ganz Prima, nur wollte ich jetzt mal testen wie sich das Programm ...

Kann man durchaus machen, dann aber so:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
if not ((TEdit(Sender).CaretPos.X = 0) and (Key = '-')) then
if not (Key in ['0'..'9', #8, #9, #37, #39]) then
Key := #0;
end;
Die Prüfroutine bei Bedarf natürlich um weitere Werte ...

Hallo Antrepolit,

wo finde ich denn dieses TFloatEdit, muß ich dazu noch ein extra Paket installieren?
Ich habe mir für diese Felder letztens extra das Paket "JUJIBOUTILS" installiert.

Hi AlohaBanane,

bin zwar auch Anfänger was FP anbelangt, da Jahrelang nur VBA programmiert, aber ich würde das schon bei der Eingabe 'KeyPress' prüfen ob Zahlenwerte eingegeben werden. Z.B. bei Integer würde ich das so machen...

begin
if length(edit1.Text) >= 1 then
if not (Key in ['0'..'9', #8 ...