Zitat von
akira1983:
aber selbst das klappt nicht. kurz gesagt es ist meine allererste komponente...
Keine Grund zur Peinlichkeit
Dann lass mich Dir einerseits mein (noch nicht fertiges) Tutorial zur
Erstellung von Komponenten ans Herz legen und andererseits, laß mich Dir einen kleinen Start geben
Delphi-Quellcode:
type
TIPCheck =
class(TCustomMaskEdit)
private
function GetIP:
String;
procedure SetIP(
const Value:
String);
protected
public
constructor Create(AOwner: TComponent);
override;
property IP:
String
read GetIP
write SetIP;
end;
{ TIPCheck }
constructor TIPCheck.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
EditMask := '
991.991.991.991;1; ';
end;
function TIPCheck.GetIP:
String;
var
I: Integer;
Temp:
String;
begin
Temp := Text;
Result := '
';
for I := 1
to Length(Temp)
do
if Temp[I]
in ['
0'..'
9', '
.']
then
Result := Result + Temp[I];
end;
procedure TIPCheck.SetIP(
const Value:
String);
begin
Text := Value;
end;
Und von hier einfach weiter machen - und natürlich wieder "hallo" sagen, wenn es zu Problemchen kommt
...
...
Daniel W.
Ich bin nicht zurück, ich tue nur so