Hallo,
[...] Wenn ich, wie in diesem Fall, erst selbst umständlich ein Testszenario aufbauen muss, lass ich es lieber gleich bleiben. [...]
Dazu hatte ich auch keine große Lust. Daher nur:
- Form1 (fsMDIForm) mit einem Button
- Form2 (fsMDIChild) mit einem übergroßen Panel (wir wollen ja auch scrollen) und ein Timer, der die längere Ladezeit simuliert
Dann noch etwas Code
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
f : TForm2;
begin
f := TForm2.Create (Self);
f.Show
end;
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
begin
AutoScroll := True;
Enabled := False
end;
procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBy (0, WheelDelta)
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
Enabled := True;
SetFocus
end;
Wird der Timer getriggert kommt das Form in den Vordergrund (falls von einem anderen Form überdeckt) und das Scrollen per Mausrad ist problemlos möglich.
Also wird es wohl irgendwo an Deinem Code haken. Was, warum, wieso, weshalb, sorry, da habe ich keine Lust mit der langen Stange im Nebel zu stochern. Gib den hilfswilligen hier im Forum mal etwas mehr Infos und Dir wird sicherlich geholfen.
BTW völlig kontraproduktiv sind Posts like:
Vielen Dank für die zahlreichen Hilfestellungen!
Mach Dir mal besser Gedanken darüber:
[...] die Hauptursache für fehlende Antworten eine unzureichend gestellte Frage. [...]
Gruß