> ## Content Index
> Fetch the complete content index at: https://blogs.remobjects.com/llms.txt
> Use this file to discover other available public pages before exploring further.

# Teaser - MonoDroid with Oxygene
- URL: https://blogs.remobjects.com/2010/08/20/teaser-monodroid-with-oxygene/
- Published: 2010-08-20T00:02:47.000Z
- Updated: 2018-08-22T06:17:46.000Z
- Author: bl
- Tags: #Import 2026-08-17 20:17

Now that the [MonoDroid](http://monodroid.net/?ref=blogs.remobjects.com) preview is out, I thought I’d experiment a little with Oxygene (aka [Delphi Prism](http://www.embarcadero.com/products/delphi-prism?ref=blogs.remobjects.com)), so I ported the “Button” sample to Oxygene. Here’s a taste of what I came up with:

![](http://rorox.remobjects.com/2010-08-19_1050.png "Hello from Oxygene")

| method Activity1.OnCreate(bundle : Bundle);begininherited OnCreate(bundle); // Create your application herevar button :\=new Button(self); button.Text:\='Oxygene Says: Click Me!'; button.Click+=methodbegin button.Text:\= string.Format('{0} clicks!', count);inc(count);end; SetContentView(button);end; |
| ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ |

As you can see, there’s not a lot of difference from the C# version.

Obviously, this won’t be in the build that we RTM’ed last week, and will soon be available from our friends at Embarcadero, but it will work with said release. So if you’re a Delphi Prism customer, or just have a fondness for Pascal syntax, keep an eye out here – more info will be available soon, including templates & other support files.

method Activity1.OnCreate(bundle : Bundle); begin inherited OnCreate(bundle);// Create your application here var button := new Button(self);

button.Text := ‘Oxygene Says: Click Me!’;  
button.Click += method begin  
button.Text := string.Format (‘{0} clicks!’, count);  
inc(count);  
end;

SetContentView (button);  
end;