Czesc. Napisalem prosta klase i chcialem zeby po kliknieciu na przycisk sie pojawila na formularzu. Niby skladnia poprawna ale efektu nie widac.
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.