Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
ich mags genau so wie es ist...
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
hab aus einfachheit das =false einfach statt da wos jetzt ist ans =0 gesetzt und klappt genauso
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
als Zeichen meiner Dankbarkeit:
Dies ist mein Professionelles AmeisenSimulationsprogramm!
für Freaks ganz lustig sich das mal ne stunde oder so anzuschauen :)
(für 1600 * 1200 Bildschirmauflösung geschrieben)
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
hab =low(SmallInt) durch =0 ersetzt und =false eingefügt jetzt klappts!
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
weiss zwar nicht waqrum aber mit =0 und =false klappts
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
var i:Integer;
keys:array of Boolean;
procedure TForm1.FormClick(Sender: TObject);
begin
if timer1.enabled = false then begin
form1.width:=screen.width;
form1.height:=screen.height;
form1.position:=poscreencenter;
timer1.enabled:=true;
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
das Programm äuft, nur wirds nicht rot :(
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
var i:Integer;
keys:array of Boolean;
procedure TForm1.FormClick(Sender: TObject);
begin
if timer1.enabled = false then begin
form1.width:=screen.width;
form1.height:=screen.height;
form1.position:=poscreencenter;
timer1.enabled:=true;
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
hab jetzt
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
da stand aber irendwas von inkompatible typen
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
nein das canvas.pixels ist ne Angewohnheit, da hatte ich noch nie Probleme mit, und ausserdem refresht die nicht ständig, jedenfall hab ichs mit OnKeyPress ganz gut raus, nur wie kann ich abfragen ob key='a' ist denn so klappts eben nicht
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
implementation
{$R *.DFM}
var i:Integer;
keys:array of Boolean;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
beachte, dass bei so einem Spiel auch mal ein Knopf immer wieder mal Gedrückt wird, während ein anderer Knopf gedrückt bleibt
geht das?
STRG Umschalt und das alles ist aber unwichtig
Forum: Sonstige Fragen zu Delphi
by dino,
15. Jul 2006
Wenns get bitte in Echtzeit, denn ich habe vor eine Mario Version eines coolen GameBoy spiels zu Programmieren, und da ists ärgerlich, wenn man zwar Drücken würde, das Programm aber nicht reagiert...
ach und zu was gehört eientlich Delphi3?