TEdit Ereignis gesucht

[knight]

Hallo,

ich möchte folgendes erreichen: Der Benutzer gibt Daten in ein Eingabefeld (TEdit) ein. Wenn er die Enter Taste drückt, soll eine Aktion ausgelöst werden. Welches Ereignis von TEdit muß ich dafür verwenden? Ich habe es bereits mit den OnKey... Ereignissen versucht, kenne aber den 'Key' Wert nicht, den ich dafür abfragen muß. Offenbar verwendet Lazarus hier andere Werte als Delphi.

knight

[theo]

uses LCLType;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_Return then ...;
end;

[Christian]

Lazarus verwendet dafür keine anderen Werte als Delphi.
In KeyPress bekommst du einen Char dort also #13 in den OnKey**** Ereignissen VK_***** Werte.

[knight]

Die VK_***** Werte hatte ich schon probiert. Die Folge war ein'unknown...' Fehler. Daher auch meine Vermutung, daß es hier Unterschiede zwischen Delphi und Lazarus gibt

knight

[theo]

Was heisst das? Klappt's bei dir jetzt nicht? Was ist ein "unknown" Fehler?

[knight]

Die Meldung lautet:
Error: Identifier not found "VK_Return"
Soweit ich das verstehe, wird für Key ein LongInt Wert erwartet.

knight

[theo]

Vielleicht liest du nochmal die erste Zeile meiner ersten Antwort in diesem Thread durch.... (Seufz)

[knight]

Da hatte ich wohl Tomaten auf den Augen. Ich habe um ehrlich zu sein nicht damit gerechnet, für ein einfaches Element wie TEdit noch eine zusätzliche Unit einbinden zu müssen. Vielen Dank für eure Hilfe.

knight

[af0815]

Ich habe um ehrlich zu sein nicht damit gerechnet, für ein einfaches Element wie TEdit noch eine zusätzliche Unit einbinden zu müssen.

Nur in der Unit sind die ganzen Definitionen hinterlegt. Ich mache bei unklaren Sachen oft mal eine Suche im Lazarus- / FPC Verzeichnis. Oft sehe ich dann, wo die Definitionen liegen, bzw. wo ich sinnvoll weitersuchen kann.

[Christian]

Wo sind die bei Delphi deklariert ? Möglicherweise sollte man diese Definitionen wirklich mal verschieben.

[af0815]

Wo sind die bei Delphi deklariert ? Möglicherweise sollte man diese Definitionen wirklich mal verschieben.

Wozu verschieben ? Die passen IMHO. Warum glaubst Du heißt die Unit so.

[Christian]

In Delphi gibts keine Unit LCLType. Wenn wir Delphi Kompatibilität anstreben müssen die also woanders deklariert sein.

Wird das jetzt wieder sone ich widerspreche Christian wo es nur geht Geschichte um ihn zu ärgern wie mit Ralli ?

[shokwave]

Ich glaub ich hab die Antwort, in der "Windows"-Unit. Damit wird es zur Grundsatzdiskussion: Delphi kompartibel vs. MultiPlattform.

[schnullerbacke]

Nö,

in der windows kann nicht sein. Aber selbst wenn dem so wäre, gibt es immer noch {$IFDEF FPC} LCLTypes, {$ELSE} ... {$ENDIF}. Dann bleibt das bei den einfachen Sachen kompatibel zu Delphi.

{$IFDEF Delphi} ... {$ENDIF} ginge auch, muss aber vorher vielleicht erst definiert werden.

[af0815]

In Delphi gibts keine Unit LCLType. Wenn wir Delphi Kompatibilität anstreben müssen die also woanders deklariert sein.

Dia absolute Delphi kompatibilität ist ja kein Dogma. Es ist wie bereits festgestellt worden ist, bei Delphi das in der 'Win32 API Interface Unit' aka 'windows' deklariert.

Bei FPC ist es ebenfalls in der windows.pp über ein include auf die defines.inc definiert. Und LCLType bindet bei Windows die Unit 'windows' ein. Zusätzlich finden sich die 'VK_' auch in der LCLType.

Vielleicht ist auch noch folgender Text aus der LCLType erwähnenswert

This unit is being created specifically for compatibility with Delphi. It
should only be used for constants and type definitions that are included in
the Delphi Windows unit. This is only done for compatibiltiy.

Wird das jetzt wieder sone ich widerspreche Christian wo es nur geht Geschichte um ihn zu ärgern wie mit Ralli ?

Nein, es ist mir eigentlich egal.