Problem bei MDIChild Enabled

[Volker Z.]

Hallo,

Zitat von Uwe Raabe:

[...] 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:

Zitat von e-gon:

Vielen Dank für die zahlreichen Hilfestellungen!

Mach Dir mal besser Gedanken darüber:

Zitat von Uwe Raabe:

[...] die Hauptursache für fehlende Antworten eine unzureichend gestellte Frage. [...]

Gruß