Nie mogę zrozumieć procesu tworzenia komponentów. Chce na przykład stworzyć komponent na bazie TEdit, który za każdym razem gdy zostanie uaktywnione zdarzenie onkeypress wykona kod
if Key in ['0'..'9',#8, '-'] then Key := Key
else Key := #0;
Jak by to mniej więcej wyglądało? Wiem, że lepszym rozwiązaniem byłoby chociażby użycie szablonu ale chciałbym stworzyć własny komponent z przyczyn edukacyjnych :)
Po stworzeniu kontrolki, przypisz do właściwości onkeypress tej kontrolki jakąś procedurę, która ma zostać wykonana.
Masz pięknie, ślicznie opisane: http://4programmers.net/Delphi/Kompendium/Rozdział_15
To w takim razie jak zrobić by domyślnym cursorem buttona było crcross? (w artykule wyżej podanym tego nie ma.)
W artach też nie będzie podane wszystko na tacy, trzeba
trochę samodzielnie pomyśleć. O to co poniżej Ci chodzi?
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.Cursor := crCross;
end;
A przy tworzeniu samodzielnie tego komponentu to w jego
cobnstructorze dajez Self.Cursor := crCross - o ile obiekt,
ktory oprogramowujesz jest pochodnym klasy TWinControl.