also ich habe noch nen zweiten button der auf das gleiche image zugreift, vielleicht liegts ja dadran, werd ich mal usprobieren
EDIT: Also komischerweise gehts jetzt, obwohl ich nichts anderes gemacht habe als den code zu kopieren.
Das Rechteck hab ich nu. Danke!
Hab aber noch ne Frage dazu: ich möchte nicht nur das rechteck, sondern ne art simples Haus zeichnen lassen. mein code sieht bisher so aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
y:integer;
Breite:integer;
Hoehe:integer;
Spitze:integer;
begin
x:=random(450);
y:=random(300);
Breite:=x + random(120);
Hoehe:=y + random(150);
Spitze:= (x + Breite)/2 ;
paintbox1.Canvas.Rectangle(x,y,Breite,Hoehe);
paintbox1.Canvas.MoveTo(x,y);
paintbox1.Canvas.LineTo(x + Spitze);
Jetzt habe ich das Problem, dass er mir meldet: "Inkompatible Typen: Integer und Extended". Ich denke mal das liegt an dem "/2" bei "Spitze". Aber wie soll ich das denn sonst machen??