Hi,
ich habe ein TPageControl, dynamisch erzeugte TTabSheets, die wiederrum dynamisch erzeugte TMemos haben.
Dem TPageControl, habe ich ein OnDrawTab hinzugefügt.
Dieses Ereignis soll jedesmal ausgeführt sofern sich ein Inhalt einer Datei ändert, um die Beschriftung des jeweiligen Tabs farblich hervorzurufen.
Zur Zeit passiert fast alles so wie es soll, nur bezweckt mein folgendes Gemurckse, dass meine darin befindlichen Memos immer wieder ganz nach oben scrollen.
Ich möchte gerne dass meine Memoscrollbalken da bleiben wo sie sind und dennoch die Tabschrift neu einfärben.
Das hier ist der Übeltäter:
Delphi-Quellcode:
pControl.OwnerDraw := False;
pControl.OwnerDraw := True;
Wie rufe ich denn die Funktion besser auf?
Code:
procedure TFormM.pControlDrawTab(Control: TCustomTabControl;
TabIndex: Integer; const [Ref] Rect: TRect; Active: Boolean);
Oder kann man die Child Elemente so konfigurieren, dass sie nicht vom OwnerDraw betroffen werden.?