TShareContract/ShareContractFramework

[TurboMagic]

Zitat von TiGü:

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