Hallo ,
wir haben im Informatikunterricht mit der Objektorientierten Programmierung in Delphi angefangen.
Am Anfang haben wir die gnazen Begriffe geklärt (Instanzen,Objekte , Klassen und Methoden).
Jetzt sollen wir folgendes machen :
Der Lehrer will von uns , dass wir Mithilfe der
OOP in Delphi ein Rechteck programmieren , das sich mit einem Buttonklick zeichnen lässt.(Nicht grad einfach).
Bin so weit gekommen :
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
RechteckBTN: TButton;
LoeschBTN: TButton;
EndeBTN: TButton;
PaintBox1: TPaintBox;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
TRechtecke = class // Hier ist die Klassenbeschreibung
laenge:integer;
breite:integer;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
Rechteck: TRechtecke;
implementation
procedure rechteckmachen();
begin
Form1.Paintbox1.Canvas.MoveTo(20,20); // Diese procedure soll irgendwie so eine Art Anfang sein für das Zeichnen.
Form1.Paintbox1.Canvas.MoveTo(100,100);
end;
{$R *.dfm}
end.
Und jetzt , da passiert nix sobald ich auf den Button drücke.
Das Problem ist ja , ich kenn die Befehle garnicht , mit denen man so ein Rechteck zeichnen soll.
Bitte nicht so kompliziertes sagen/empfehlen , hab nicht so viel Erfahrung mit
OOP.
Ist das erste Mal , dass ich mit Klassen etc arbeite und selbst Klassen erstelle.