Forum: FreePascal
by mimi,
17. Jan 2009
Ich habe es inzwischen mit der neuen Version versucht:
Wenn ich z.b. ein ZUERST A drücke wird es nicht bemerkt. Aber wenn ich zuerst die Pfeiltasten drücke und dann ein A z.b. dann geht das.
Forum: FreePascal
by mimi,
7. Jan 2009
du meinst wahrscheinlich 0.9.27
Ich glaube noch nicht. Werde ich nachholen. Welche Andorra Version hast du denn genau ? Ich habe inzwischen die "ad2d_451_ALL"
Erstmal danke für deine Tests also muss es an meine Andorra Version liegen.
Forum: FreePascal
by mimi,
7. Jan 2009
Kann ich gerne machen. Aber ich glaube es dürfte ein allgemeiner Fehler sein.
Im Anhang findest du das Komplett Projekt. Die Grafiken sind NICHT von mir. Sie stammen von hier:
http://www.secretmaryo.org/
oder von einem Andorra Tutorial.
Hier mal ein Code-Auszug:
constructor TPlSMC.Create(aForm:TForm);
begin
inherited Create;
Forum: FreePascal
by mimi,
6. Jan 2009
Tritt das Problem eigentlich auch bei anderen auf ? Bisher konnte ich die Ursache noch nicht finde und habe auch aufgehört zu suchen.
Forum: FreePascal
by mimi,
5. Jan 2009
Tests haben ergeben das "ConnectEvents" zweimal aufgerufen wird.
writeln('OK00');
//Check for on key down event
PropInfo := GetPropInfo(Control, 'OnKeyDown');
if (FKeyDownComp = nil) and (PropInfo <> nil) then
begin
writeln('OK01');
Method := GetMethodProp(Control, PropInfo);
FOldKeyDown := TKeyEvent(Method);
Forum: FreePascal
by mimi,
5. Jan 2009
Hallo,
Bei einem Projekt möchte ich gerne auf die Tastertur und Maus Events reagieren können. Jedoch klappt das einfach nicht zuverlässig. Selten klappt es. Dann eine Zeitlang überhaupt nicht.
AdDraw.Window.Events.OnMouseDown:=MouseDown;
AdDraw.Window.Events.OnKeyDown:=KeyDown;
procedure TPlSMC.KeyDown(Sender: TObject; Key: Word; Shift: TAdShiftState);
begin
if key in then...