Merkwürdiges - Label

Rio · Hält's aus hier Beiträge: 2

Ich habe ein merkwürdiges Problem mit label:

Die Prozedur
[code]procedure TForm1.start(Sender: TObject);
begin
canvas.Rectangle(100,100,400,400);
label1.Caption:='hallo';
end;[/code]
funktioniert beim ersten Aufruf(ButtonClick). Beim zweiten Aufrufen wird das Label nicht mehr angezeigt. Das Label liegt im Bereich des Rechteckes - das soll so sein! Ich benötige keine Lösung über TextOut. Ich möchte das Label sichtbar machen.

Wer weiß Rat?

Danke Rio

LCS · Verfasst: Di 15.10.02 14:39

Hi
Schreib einfach mal noch ein Label1.Refresh dahinter, dann sollte das funktionieren.

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Tante · Beiträge: 41

Hallo!

Mit

markieren

Quelltext

1:
2:
3:

canvas.Brush.Style:=bsclear;
canvas.Rectangle(100,100,400,400);
label1.Caption:='hallo';

würde es gehen. Aber dann wird kein Hintergrund mehr für das Rechteck gezeichnet. Reicht Dir das? Oder brauchst Du den Hintergrund?

Rio · Hält's aus hier Beiträge: 2

Vielen Dank, Tante,

aber leider muss das zuvor im Rechteck gezeichnete gelöscht werden. Ich habe eine Form, auf der verschiedene Komponenten liegen, die z.T. durch Label bezeichnet werden. Weil die Lage der Graphikobjekte variabel gestaltet ist, muss letztlich die gesamte Form gelöscht werden. Geht das mit brush?

gruss Rio

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme