Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Eljey,
1. Dez 2008
nein, hast recht, hab i am anfang auf null gesetzt, das array fängt erst bei 1 an. Danke für die Hilfe, das nächste mal werde ich besser schauen :-)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Eljey,
1. Dez 2008
ganzer code: (Der Fehler kommt genau in der Timer Zeile, hab ich durch den Debugger laufen lassen)
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
laufen:=true;
zeit:=0;
archlordwnd:=FindWindow(nil,'Archlord');
If archlordwnd<>0 Then
ShowMessage('gefunden')
Else
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Eljey,
1. Dez 2008
If laufen then
begin
SetForegroundWindow(archlordwnd);
Timer1.Enabled:=false;
messwerte.laufzeit:=zeit;
Timer1.Enabled:=true;
ShowMessage(InttoStr(zeit));
zeit:=0;
laufen:=false;
end;