hiho
Ich mache gerade meine ersten Schritte in der Komponentenentwicklung. Mein erstes Problem: Ich möchte verschiedene Ereignisse meiner abgeleiteten TEdit bearbeiten, also bestimmen, was gemacht wird, wenn zum Beispiel der Benutzer das Edit fokussiert (OnEnter). Ich hab da was probiert (mit Hilfe des Internets und ein wenig Kreativität
), doch es funktioniert nicht wirklich...
Vielleicht könnte mir jemand sagen, was ich falsch mache:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| type
TCommentedEdit = class(TEdit)
protected
{ Protected declarations }
procedure Enter; override;
implementation
procedure TCommentedEdit.Enter;
begin
inherited;
if (text = Comment) and (font.color = CommentColor) then
begin
text := '';
font.Color := OrigColor;
end;
end;
end. |
Alles Weitere wie nötige Variablendeklarationen, constructor, usw hab ich jetzt nicht kopiert, aber natürlich hab ich das.
Der Compiler jammert, "[Error] CommentedEdit.pas(20): Method 'Enter' not found in base class", woraus ich schliesse, dass diese Methode anders heisst. Mit OnEnter hab ich's schon versucht, ohne Erfolg.
Bin ich auf dem richtigen Weg oder bringt das nichts, was ich gemacht habe?
Ich danke herzlichst für Hilfe.
greets, icolo
