Problem ze stworzeniem klasy

Problem ze stworzeniem klasy
0

Czesc. Napisalem prosta klase i chcialem zeby po kliknieciu na przycisk sie pojawila na formularzu. Niby skladnia poprawna ale efektu nie widac.

Kopiuj
unit CardU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TCard = class(TObject)

  private
    { Private declarations }
  public
    { Public declarations }
    Image : TShape;
    constructor Create(AOwner : TComponent);
  end;

implementation

constructor TCard.Create(AOwner : TComponent);
begin
  inherited Create;
  Image := TShape.Create(nil);
  Image.Left := 100;
  Image.Top := 200;
  Image.Width := 200;
  Image.Height := 200;
  Image.Shape := stCircle;
  Image.Visible := True;
  Image.Brush.Color := clWhite;
end;

end.
Wolverine
  • Rejestracja:ponad 21 lat
  • Ostatnio:ponad 6 lat
0

Klasa zeby sie pojawila? Czy moze TShape ktorego tam zrobiles? Zakladajac, ze jako parametr kontruktora podajesz formatke to Image.Parent := AOwner.


0

Chodzi o to zeby sie Shape pojawil.
Spaby jestem jeszcze w zagadnieniach zwiazanych z klasami wiec nie wiem jak ten konstruktor dobrze stworzyc. Chcialem po prostu odziedziczyc konstruktor po tObject, nie wiem czy to dpbrze zrobilem, moze inaczej powinienem go zadeklarowac.
A to co podales to gdzie to powinienem umiescic? W konstruktorze?

Ad
  • Rejestracja:około 19 lat
  • Ostatnio:ponad 13 lat
0

Albo tak albo Image := TShape.Create(AOwner);


<img src="http://signer.idn.net.pl/static/adsoftware.png" alt="user image" />
Misiekd
  • Rejestracja:ponad 21 lat
  • Ostatnio:prawie 13 lat
  • Postów:7923
0
Ad napisał(a)

Albo tak albo Image := TShape.Create(AOwner);

to nic nie da bo tak przypisujesz ownera a nie parenta a to dwie różne rzeczy - musi być jeszcze to co Wolverine napisał


- Ciemna druga strona jest.
- Nie marudź Yoda, tylko jedz tego tosta.
Google NIE GRYZIE!
Pomogłem - kliknij

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.