AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TEdit ableiten und OnEnter überschreiben

Ein Thema von migi · begonnen am 2. Dez 2003 · letzter Beitrag vom 3. Dez 2003
 
migi

Registriert seit: 27. Nov 2003
Ort: St. Wendel
25 Beiträge
 
#3

Re: TEdit ableiten und OnEnter überschreiben

  Alt 3. Dez 2003, 07:35
Hallo scp,

vielen Dank für deine Antwort. Wenn ich dann noch folgende Proceduren hinzufüge, funktioniert es wie gewollt.

Delphi-Quellcode:
constructor TGRIPSEdit.Create(AOwner: TComponent);
begin
  inherited;
  inherited OnExit := NewOnExit;
  inherited OnEnter:= NewOnEnter;

end;

procedure TGRIPSEdit.NewOnEnter(Sender: TObject);
begin
   color := clHighlightColor;
   if Assigned(fOnEnter) then fOnEnter(Sender);
end;

procedure TGRIPSEdit.NewOnExit(Sender: TObject);
begin
   color := clNormalColor;
   if Assigned(fOnExit) then fOnExit(Sender);
end;
..Natürlich mit entsprechender Deklaration.

Grüße

Michael
---------------------------------------------------
| Ich bin nicht die Signatur - ich putze nur. |
---------------------------------------------------
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:54 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz