1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure edClpiboardChanged(Sender: TObject);
begin
  //(Sender as TwgEdit).CopyToClipboard;  //"end" expected, but found ( instead
  //TwgEdit(Sender).CopyToClipboard;  //unknown Identifer "TwgEdit"
  edClipboard.CopyToClipboard;
end;

procedure tmrRefreshEditTimer(Sender: TObject);
begin
  //edClipboard.SelectAll;  //unknown class procedure
  //edClipboard.Clear;  //unknown class procedure
  //edClipboard.Text := '';  //"end" expected, but found := instead
  //eig. soll ja nur danach der Clipboardtext im Edit stehen.. Aber so wird er immer wieder aneinandergereiht :( (statt 'test' 'testtesttestttest..')
  edClipboard.PasteFromClipboard;
end;                    

1:
2:
3:
4:
5:
6:

procedure edClpiboardChanged(Sender: TObject);
var aEdit : TwgEdit;
begin
  aEdit := Sender;
  aEdit.CopyToClipboard;
end;                    

1:
2:
3:
4:

 // diese Property
property [Name]: [Typ]  read F[Name] write F[Name]
// wird in der ScriptEngine zu
function [Name]: [Typ];   procedure Set[Name](value: [Typ]);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure wgImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  wgHTTP1.GetURL('http://imgs.xkcd.com/comics/tfd_nataliedee.png');
end;

procedure wgHTTP1Done(Sender: TObject; Content: string; ResponseCode: integer);
begin
  wgImage1.Graphic.LoadFromString(Content);
  mainform.RenderForm;
end;                    

1:
2:
3:
4:
5:
6:

unit MyPlugIn;

procedure ShowMessage(aMsg: string); external;
function  InputQuery(aQuery: string; var Target: string): boolean; external;

begin end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

program MainForm;

uses
  { ... bla bla bla ... }, MyPlugIn;

procedure IrgendWas;
begin
  if 2 > 1 then
     ShowMessage('Das ist ein Test');
end;

function WasLos: string;
begin
  if not InputQuery('Hihi', result) then
     ShowMessage('Wirklich?');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

const
  ASygScriptUnitName   : string = 'ExamplePlugIn';
  ASygScriptUnitSource : string = 
  'unit ExamplePlugIn;'+#13#10+
  #13#10+
  '// THIS IS VERY IMPORTANT !!!!!'+#13#10+
  '// YOU MUST NOT DELETE THIS LINE'+#13#10+
  '{$CALLCONVENTION STDCALL}'+#13#10+
  '// OTHERWISE THE GENERATED CODE'+#13#10+
  '// DOES NOT HAVE THE CALL-CONVENTION: stdcall'+#13#10+
  #13#10+
  'uses'+#13#10+
  '  Classes; // for TObject (TObject is not in the System.pas'+#13#10+
  '  '+#13#10+
  'type'+#13#10+
  '  // A sample class'+#13#10+
  '  TMyPluginClass = class(TObject)'+#13#10+
  '  public'+#13#10+
  '    // the script engine does not know constructors. '+#13#10+
  '    // So you can simple make a function which '+#13#10+
  '    // returns the new generated object'+#13#10+
  '    function  Create: TMyPluginClass;'+#13#10+
  '    // you do not have the publish the destructor if you'+#13#10+
  '    // create  decenent of TObject. '+#13#10+
  '    '+#13#10+
  '    // Here you can define functions and procedures'+#13#10+
  '    function  IntValue: integer;   '+#13#10+
  '    procedure SetIntValue(value: integer);'+#13#10+
  '    '+#13#10+
  '    // NOTE: YOU CAN NOT CREATE A FUNCTION WITCH RETURNS A STRING'+#13#10+
  '    //       IF YOU WANT TO RETURN A STRING, CREATE SOMETHING LIKE THIS:'+#13#10+
  '    //       '+#13#10+
  '    //          procedure GetString(var value: string);'+#13#10+
  '    //'+#13#10+
  '    // OnChange-Event'+#13#10+
  '    procedure GetOnBeforeChange(var s: string); '+#13#10+
  '    procedure SetOnBeforeChange(value: string);'+#13#10+
  '    // OnChanged-Event'+#13#10+
  '    procedure GetOnChanged(var s: string);'+#13#10+
  '    procedure SetOnChanged(value: string); '+#13#10+
  '  end;'+#13#10+
  '  '+#13#10+
  '// If you just want to add a simple function and not an object,'+#13#10+
  '// you have to add the key word "EXTERNAL" after the declaration'+#13#10+
  'procedure MyShowMessage(aMsg: string); external; '+#13#10+
  #13#10+
  #13#10+
  '// If you are done with the header, click on "File" -> "Open" and'+#13#10+
  '// open the file "FormatDelphiExportFunction.scs"'+#13#10+
  '//'+#13#10+
  '// Now change back to your header source and click on '+#13#10+
  '// "Project" -> "Export to Delphi Unit". Answer the dialog with "YES",'+#13#10+
  '// wait a few seconds and open the new tab'+#13#10+
  #13#10+
  'begin'+#13#10+
  '  '+#13#10+
  'end.'+#13#10;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TMyForm = class(TForm)
  { ... }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  { ... }

implementation

procedure TMyForm.CreateParams(var Params: TCreateParams); override;
begin
  inherited;
  Params.ExStyle := Params.ExStyle and not WS_EX_APPWINDOW;
end;                    

1:

xyz := mainform.GetControlAtPos(x - root.AbsoluteLeft(root.Left), y - root.AbsoluteTop(root.Top), Root, False)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var User, Password: String;
begin
  // Bei Übergabe wird Flag in der Variable gesetzt
  // --> Kein normaler Zugriff mehr möglich
  if InputPassword('Bitte Geben Sie jetzt Ihren Benutzernamen und das '+
    'Passwort ein, das für den Login zum Delphi-Forum benötigt wird',
    User, Password) then
  begin
    // User wird korrekt ausgegeben
    ShowMessage('User: ' + User); 

    // Eine Exception wird ausgelöst (oder anders verweigert),
    // da kein Zugriff auf die Variable gestattet (Flag wurde gesetzt)
    ShowMessage('Password: ' + Password); 

    // Hier ist der Zugriff wieder gestattet
    HTTP.PostURL('http://www.delphi-forum.de/login.php',
      'User=' + User + '&Password=' + Password);

    // Bei einer normalen Zuweisung wird die Variable wieder freigeben 
    // (Flag entfernt)
    Password := 'abc';
    ShowMessage('Password: ' + Password); 
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var NewImage: TwgImage;

procedure CreateImage;
begin
  NewImage := NewImage.Create(mainform); // hier geht TwgImage.Create NOCH nicht
  // NewImage.Parent muss NICHT gesetzt werden, 
  // da dies automatisch beim Create gesetzt wird

  // Position setzen
  NewImage.SetLeft(0);
  NewImage.SetTop(0);
  NewImage.SetWidth(mainform.Width);
  NewImage.SetHeight(mainform.Height);

  // Bild hineinladen
  NewImage.Graphic.SetImageFile(' DER PFAD ZUM BILD ');
  
  // das Formular neu zeichen
  mainform.RenderForm;
end;