Mit PascalScript (RemObjects) auf Form-Properties zugreifen

[hoika]

Hallo,

ich möchte in Paccal-Script etwa sowas schreiben:

Delphi-Quellcode:

if CheckBox1.Checked then
begin
  Edit1.Text:= 'CheckBox1.Checked';
end;

Geht das überhaupt ?


Danke


Heiko

[DenSchub]

Ja, das geht. Wenn die CheckBox1 angehakt ist, Steht im Edit1 "CheckBox1.Checked".
Wenn du den Code im TCheckBox.OnClick-Event einfügst, dann wird jedes mal, wenn jemand auf die Checkbox klickt, dieser Code ausgeführt.

[nahpets]

Hallo,

schau mal bitte, ob Du mit dem Inhalt der Datei hinter diesem Link http://www.google.de/url?sa=t&source...GohngyVIyAI7-Q etwas anfangen kannst.

Alternativ mal bei Google anfragen: http://www.google.de/search?hl=de&q=...=&oq=&gs_rfai=

Eventuell wirst Du auch bei http://forums.remobjects.com/default.aspx fündig.

[hoika]

Danke,

ich nehme jetzt AddMethod.


Heiko

[Daniela.S]

Einfacher geht's auch wenn du die TPSImport_Classes und TPSImport_Controls Komponenten mit TPSScript verbindest.

Dann beim Ereignis OnCompile & OnExecute alle Komponenten, die du benötigst, hinzufügst.

Auf die Schnelle, ohne ausprobieren...

Delphi-Quellcode:

procedure TfrmMain.PSScriptCompile(Sender: TPSScript);
begin
  (*** Variablen und Typ definieren ***)
  Sender.AddRegisteredVariable( 'Edit1', 'TEdit' );
  Sender.AddRegisteredVariable( 'CheckBox1', 'TCheckBox' );
end;

procedure TfrmMain.PSScriptExecute(Sender: TPSScript);
begin
  (*** Objekte den Variablen zuweisen ***)
  Sender.SetVarToInstance( 'Edit1', Edit1 );
  Sender.SetVarToInstance( 'CheckBox1', CheckBox1 );
end;

lg,
Daniela