Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - TPanel: OnPaint-Ereignis


jjturbo - Mo 16.05.11 11:12
Titel: TPanel: OnPaint-Ereignis
Moin Forum,

wie kann ich einem TPanel ein OnPaint Ereignis hinzufügen?

Gruß Oliver


jaenicke - Mo 16.05.11 11:20

Da hast du etwas falsch verstanden: Ein Panel ist zur Gruppierung von Controls gedacht, mehr nicht. Theoretisch kannst du vermutlich WM_PAINT abfangen oder Paint überschreiben, aber wozu?

Zum Zeichnen in OnPaint eignet sich z.B. eine TPaintBox.


jjturbo - Mo 16.05.11 11:46

Habe ein älteres Projekt, mit einer eigenen Kompo, abgeleitet von TPanel. Wollte da jetzt draufzeichnen, ohne all zu viel ändern zu müssen.


jaenicke - Mo 16.05.11 11:54

Das ist zwar ein ungünstiger Vorfahr, aber wenn du davon abgeleitet hast, kannst du einfach wie schon nebenbei erwähnt Paint überschreiben. Das siehst du ja auch in dem Quelltext von TCustomPanel in der ExtCtrls.pas:

Delphi-Quelltext
1:
2:
  protected
    procedure Paint; override;


jjturbo - Mo 16.05.11 15:11

Ok, danke :)