Widget Set Abfrage

[Mathias]

Wen ich den Screeshoot im Anhang angucke ist das nach meiner Meinung eindeutig QT5.

Aber wieso zeigt es mir in der Caption GTK2 an ?

Code: Alles auswählen

uses
  uses
  ...
  LCLVersion, LCLPlatformDef;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := LCLPlatformDirNames[GetBuildLCLWidgetType];
end;   

Kompiliere ich es für Windows, wird mir schon brav "win32" angezeigt. getestet mit wine.

[theo]

Probier mal so:

Code: Alles auswählen

uses InterfaceBase;      
...
Caption := GetLCLWidgetTypeName; 

[Mathias]

Danke, jetzt gehts.