TShareContract/ShareContractFramework

[TurboMagic]

Hallo,

warum bekomme ich in meiner D11.1 VCL Anwendung das Windows 10 Teilen Popup nie
angezeigt, obwohl ich es genauso mache wie in der mitgelieferten Demo?

Wenn ich InitSharing aufrufe kommt ganz kurz die Sanduhr ansonsten passiert nix.
In der Demo kommt das Popup.

Es ist dabei egal ob ich das über die Komponente aufrufen will oder wie im anderen
Beispiel gezeigt alles per Code.

Grüße
TurboMagic

[TiGü]

Du hast also beide Projekte vorliegen. Eins funktioniert und eins nicht.
Du könntest also Step-by-Step, Zeile für Zeile vergleichen, aber fragst stattdessen uns als Glaskugel-Ersatz?

Educated Guess: Irgendwas im Manifest des Projektes?

[TiGü]

Es geht einfach so?!?

Anhang 55340

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ShareContract,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    SharingContract1: TSharingContract;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    SharingContract1.InitSharing;
end;

end.

[TurboMagic]

Hallo,

diese einfachst Version werde ich nochmal testen, nur: Zeile für Zeile vergleichen bringt nix,
wenn man den Code 1:1 rüber kopiert hat und es dann trotzdem nicht funktioniert.

Grüße
TurboMagic

[TiGü]

Die Mainform muss schon da sein, daher ausführen im ButtonClick. Im FormCreate ist es bspw. zu früh.
Nutzt du ein Windows 11 zum Testen?

[TurboMagic]

Nutze primär Windows 10, habe aber auch einen PC mit 11. Warum?
Ich rufe es im OnClick eines TMenuItems auf.

[TiGü]

In Delphi 10.4 gibt es da einen komischen Check auf Windows-Major-Version 10. Ich bin mir nicht sicher ob das für 11 so funktioniert.

[TurboMagic]

...

[TurboMagic]

Zitat:

Zitat von TiGü (Beitrag 1510934)

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ShareContract,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    SharingContract1: TSharingContract;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    SharingContract1.InitSharing;
end;

end.

Habe das jetzt nochmal versucht, jedoch erfolglos :-(
Damit es der Compiler mag musste ich auch noch
System.Win.ShareContract in Uses aufnehmen, sonst hat er TShareContract
nicht gekannt.

Habe dann einfach so eine TShareContract Komponente auf meine Form gezogen,
ein neues MenuItem hinzugefügt und in dessen OnClick handler den SharingContract1.InitSharing;
Aufruf eingefügt.

Wenn ich das ausführe und den Menüpunkt aufrufe ändert sich kurz der Mauszeiger, sonst passiert
aber nix. Ausgeführt unter Windows 10.

Grüße
TurboMagic

[TiGü]

Öffne dein Kompilat mal in der Windows 10 Sandbox oder sonstige VM.
Ich vermute, du hast dir dein Windows kaputt gespielt.