Rechteck zeichnen lassen

[inst666]

hi, ich bin neu hier und auch neu im bereich programmieren
ich hab eben mal die tutorials von computerbild gelesen und mich daran mal versucht.
man sollt einen button erstellen, der, wenn man auf ihn klickt, ein rechteck zeichnet. ich hab alles prpgrammiert und auch ablaufen lassen, delphi macht auch keine fehler, allerdgins passiert nichts, wenn ich testmodus auf den button klicke. vll kann mir ja jmd helfen :/
Hier is der quelltext zum programm:

Delphi-Quellcode:

unit rechteck;
// inst666
// 10.12.2004
// Rechteck programmieren
interface

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

type

TGrafikobjekt=class
  x,y :integer;
  fuellfarbe:TColor;
  randFarbe:TColor;
  procedure anzeigen;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}procedure TGrafikObjekt.anzeigen;
  begin
  Form1.canvas.pen.color:=randFarbe ;
  Form1.canvas.brush.color:=fuellFarbe;
  Form1.canvas.rectangle(x,y,x+100,y+100);
  end;

procedure TForm1.Button1Click(Sender: TObject);
 var Grafikobjekt:TGrafikobjekt;
begin
  GrafikObjekt:=TGrafikobjekt.create;
  GrafikObjekt.x:=50;
  GrafikObjekt.y:=60;
  GrafikObjekt.randFarbe:= clGreen ;
  GrafikObjekt.fuellFarbe:=clYellow;
  GrafikObjekt.anzeigen;
  GrafikObjekt.destroy;
end;

end.

[Nicolai1234]

Bitte benutze die [delphi]-Tags damit der Code übersichtler wird!
Benutze den Editbutton ( ), rechts oben an deinem Beitrag um ihn zu editieren! Dann merkieren den Code und drücke auf den Delphi-Code-Button oberhalb der Texteingabe!

Wenn du auf den Button klickst, wird das Bild erst erstellt und danach sofort wieder mit

Code:

GrafikObjekt.destroy;

zerstört! Das muss raus, dann müsste es klappen!

[inst666]

habs editiert, aber auch ohne dieses "destroy" funktioniert es nicht :/

[-NIP-]

irgendwie hast du zwar eine Prozedur namens "Anzeigen",
aber da steht nichts drin :/
hast du da villeicht was übersehen?

-NIP-

[Ultimator]

Irr ich mich, oder hast du gar keinen Constructor für deine Klasse?
Außerdem ist da kein Vorfahrtyp angegeben, du kannst also auf keine Standard-Events reagieren

[-NIP-]

Hast du eigentlich nicht gelesen, was Ultimator geschrieben hat?
Ultimators Antwort zu dir
Schau dir mal den 3.Punkt an.

-NIP-

[inst666]

constructor ? ich habs nur so gemacht wie computerbild es vorgab ich weiss auch net was ein constructor oder aehnlihces ist, erlaeuterung ? bin halt noch neu im bereich programmieren

[chkdsk]

"ich hab eben mal die tutorials von computerbild gelesen"

Autsch!

Dies ist einer der besten Wege, sich als "Voll-Profi" zu outen, gleich nach: "Ich bin AOL-Nutzer"!

[inst666]

ich hab doch gesagt dass ich neu bin im berecih programmierung und mit irgendwas muss ich ja anfangen. wenn du keine konstruktiven beitraege liefern kannst, dann schreib lieber garnix ...