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.
Ein Therapeut entspricht 1024 Gigapeut.