Zitat von
fabiO:
Ich habe es mit einem Label versucht, doch das wird nich angezeigt, oder vielleicht auch von der Paintbox überdeckt, ich weiss es leider nicht.
[...]
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z : Integer;
ortsname : TLabel;
begin
Paintbox1.Refresh;
Randomize;
For z := 1
to 4
do
begin
x := Karte[z].x;
y := Karte[z].y;
x := Random(Paintbox1.Width);
y := Random(Paintbox1.Height);
PaintBox1.Canvas.Pen.Color :=
RGB(random(256), random(256), random(256));
PaintBox1.Canvas.Ellipse(x-2,y-2,x+2,y+2);
Ortsname := TLabel.Create(Self);
Ortsname.Caption := ('
Ort ' + IntToStr(z));
Ortsname.Top := y+5;
Ortsname.Left := x+5;
end;
end;
Das Label wird dir nicht angezeigt, weil es nur innerhalb der ButtonClick Prozedur existiert!
Du musst das Label als Variable der Form deklarieren.
Und wie Khabarakh schon sagte, musst du das Label auch wieder freigeben!;
Viele Grüße, Benjamin