Du könntest ein wenig mit GWL_EXSTYLE
und STYLE
rumspielen und die Forms dementsprechend anpassen.
Und was soll ich da anpassen? Es geht mit ja um den grundlegenden Fensterstil (Win7 vs. Win8 bzw. 10)
Zum ausprobieren: (Windows 8 oder 10, Delphi 2007)
Form1 mit einem Panel und einem Button drauf
Form2 mit beliebigen Controls drauf
Im OnClick des Button:
Delphi-Quellcode:
procedure TForm1.BtnWindowClick(Sender: TObject);
var Form2:TForm2;
begin
Form2:=TForm2.create(Application);
Form2.Parent:=Panel1; // mit dieser Zeile: Form2 sieht aus wie Win7
// ohne diese Zeile: Form2 sieht aus wie Win8 bzw 10
Form2.Show;
end;
Wie bekomme ich es hin, dass Form2 immer korrekt aussieht, je nach Windows-Version, auch wenn es auf einem Panel liegt. Ist ja übrigens interessant, dass auch in Win10 der Win7-Stil noch irgendwie vorhanden ist.
Das DBGrid-Problem habe ich jetzt durch Eingriffe in den Quellcode von TJvDbGrid gelöst.