Delphi verwechselt Paintboxen ?

[himitsu]

Schreib mal ins OnPaint der PaintBoxen

Delphi-Quellcode:

procedure TForm6.PaintBox1Paint(Sender: TObject);
begin
  TPaintBox(Sender).Canvas.TextOut(0, 0, TPaintBox(Sender).Name);
end;

Kanst auch beiden Boxen das selbe Ereignis zuweisen.

[Vukloc]

Habe ich gerade eben gemacht..

Delphi-Quellcode:

procedure TForm1.PaintBox3Paint(Sender: TObject);
begin
  TPaintBox(Sender).Canvas.TextOut(0, 0, TPaintBox(Sender).Name);
end;

Da steht dann auch PaintBox3, das stimmt..aber laut der Form und dem angegebenen Ort ist es die PaintBox2...bin am verzweifeln...

Ich habe das ganze einfach mal hochgeladen vielleicht kann ja mal jemand drüberschauen

[himitsu]

Wenn PaintBox3 da steht, dann ist es auch die PaintBox3.

Da wirst du dann wohl eher ein problem mit der Positionierung der Komponenten haben.




Bin jetzt noch arbeiten ... später vielleicht.

[DeddyH]

Schau Dir mal die Beschriftungen Deiner GroupBoxen genau an: GroupBox 4 und 5 tauschen nämlich die Plätze.

[edit] Da die inneren GroupBoxen alTop ausgerichtet sind, lass mal das Setzen von Top weg und zeichne die PaintBoxen in deren eigenem OnPaint-Ereignis. [/edit]

[Vukloc]

@All
Vielen dank, hab garnicht dran gedacht das die GroupBoxen falsch sitzen, das habe ich doch total übersehen...den Wald vor lauter Bäumen nicht gesehen...jetzt gehe ich mich erstmal in die Ecke schämen