Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#1

Application läuft nicht auf WinMobile 6.1 Pro

  Alt 26. Jan 2009, 11:32
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.
Danke
Tom
  Mit Zitat antworten Zitat