Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: Message o.Ä. wenn Scrollbar(s) eingeblendet werden

  Alt 20. Apr 2012, 09:35
wenn Du Dich in WM_SIZE hängst wirst Du zwar etwas öfter aufgerufen als nötig, aber mit einer zusätzlichen Prüfung hier könntest Du weiterkommen

Delphi-Quellcode:
type
  TScrollBox=Class(Forms.TScrollBox)
        procedure WMSize(var Message: TWMSize); message WM_SIZE;
  End;
  TForm2 = class(TForm)
...

procedure TScrollBox.WMSize(var Message: TWMSize);
begin
   inherited;
   Showmessage('Size');
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat