"Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
news:3d259756$0$41353$edfadb0f@dspool01.news.tele.dk
> Hej Du som læser dette!
>
> Har du en forklaring på hvad der er galt med denne Unit QMinedit,
> som jeg forsøger, at compile til en component.
> Jeg prøver blot, at lære, at lave en component!
> Bruger Delphi ver. 6.
<snip>
> constructor TMinEdit.Create(AOwner: TComponent);
> begin
> Edit1.Height:= 25;
> Edit1.Width:= 100;
> Edit1.Color:=clBlue;
> Font.Color:=clWhite;
> Font.Name:='Times New Roman';
> Font.Size:=12;
> Font.Style:=[fsBold];
> end;
Du skal altid som det første i en Create kalde
inherited Create(AOwner: TComponent);
(Du kan vist nok bare nøjes med ordet inherited;)
Laver du på et tidspunkt noget der kræver en Destroy, skal du kalde
inherited Destroy( blah blah)
som det sidste.
Edit1 refererer til noget Delphi ikke kan finde i din Unit.
Da det er den komponent du er i gang med (TMinEdit) der skal have
værdierne, kan du bruge "self". Du behøver ikke, (du kan helt undlade at
skrive noget), men det gør det mere klart, når man senere læser koden.
Self.Height := 25;
Self.Font.Name:='Times New Roman'; osv.
Self.Color tror jeg ikke du får noget ud af, da farven bliver hentet via
reg-databasen, og den værdi brugeren har sat som "farve på vindue",
bliver brugt.
Hvis du stadig får fejl, så skriv bare igen
--
*/*
jUno
spamfilter: Fjern din bh