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