Einzelnen Beitrag anzeigen

Touchdown

Registriert seit: 17. Feb 2003
227 Beiträge
 
#1

Scrollbox, Paintbox und auf Scrollrad reagieren

  Alt 12. Nov 2003, 10:08
Zu meinem Problem:
Ich habe eine Scrollbox auf einem Formular, auf diesem lege ich eine dynamisch erzeugte Instanz einer Paintbox. Die Paintbox wird gefüllt und die Scrollbox macht was man von ihr erwartet.

Technisch sieht es in etwa so aus:
Delphi-Quellcode:
Paintbox := TPaintBox.Create (self);
Paintbox.OnClick := ScrollBox1.OnClick;
ScrollBox1.ControlStyle := ScrollBox1.ControlStyle + [csAcceptsControls];
Paintbox.Parent := ScrollBox1;
Paintbox.Align := alClient;
Was mich allerdings noch stört ist, es wird nicht auf mein Maus-Scrollrad reagiert.

Im Onclick setze ich einfach den Focus auf die Scrollbox und habe eigentlich erwartet, dass es dann funktionieren würde. Dem ist aber nicht so!
function getallfornothing: TGoldesel;
begin
result := TGoldesel.create;
end;
  Mit Zitat antworten Zitat