Hi Leute,
hab da mal wieder ein wohl ganz simples Problem aber anscheinend Tomatoes auf den Augen :/
Ich habe eine Procedure, die kriegt einen Parameter (TObject)
Dieser Funktion übergebe ich entweder n TDBEdit oder ein TEdit.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| procedure requireInput(Sender : TObject);
begin
showmessage(Sender.ClassName);
if Sender is TEdit then
showmessage('Ich bin ein Edit');
if Sender is TDBEdit then
showmessage('Ich bin ein DBEdit');
end; |
Das Problem ist, das - wenn ich der Procedure ein TDBEdit übergebe - es erkannt wird und erscheint 'Ich bin ein DBEdit'.
Wenn ich aber in TEdit übergebe, klappt das nicht (Obwohl ich am Anfang der Klassennamen prüfe, und dort auch TEdit angezeigt wird.)
Wenn ich über den Klassennamen vergleiche, klappts natürlich, aber so solls ja nich sein ^^
Danke für eure Hilfe,
gruß ben
EDIT: Ich hab den Kot jetzt mal in einem neuen Projekt ausprobiert - da gehts natürlich einwandfrei. Werde jetzt mal gucken woran das denn liegt...wenn ich den Fehler gefunden hab geb ich bescheid (auch wenns keinen interessiert)
