Hallo Wissende,
ich habe mit Lazarus eine kleine Testapplikation geschrieben, um zu sehen, wie sie auf meinem Handy aussieht. Lazarus liegt in der Version 0.9.24 vor. Auf meinem Laptop läuft die RiesenEXE. Warum meldet mir Windows Mobile also, dass die kopierte Exe kein für ein PoketPC geeignetes Programm ist?
Hier mal der SourceCode des Programms:
Delphi-Quellcode:
unit frm_main;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls, DbCtrls;
type
{ TForm1 }
TForm1 =
class(TForm)
Button1: TButton;
RadioGroup1: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
with RadioGroup1
do
begin
Caption:= '
Von welchem Land ist Zagreb die Hauptstadt?';
Items.Add('
Deutschland');
Items.Add('
Kroatien');
Items.Add('
Slovenien');
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = 1
then
ShowMessage('
richtig')
else
ShowMessage('
falsch');
end;
initialization
{$I frm_main.lrs}
end.