KeyPress unter Form2 funktioniert nicht.

[Volker Z.]

Hallo,

wenn Du mal das Form2 öffnest und Dir dann im OI die Eigenschaft KeyPreview bzw. das Ereignis OnKeyPress ansiehst, was steht denn da?
Ist dort wirklich: KeyPreview True, OnKeyPress Form2KeyPress? Irgendwie liest sich das, als ob per Copy/Paste Code dupliziert wurde, aber der Event nicht zugewiesen wurden.

Gruß

[akurka]

Hallo
Ja KeyPreview ist im Oi gesetzt. das war das erste was ich gecheckt habe.Irgend etwas stimmt nicht mit dem Focus auf Form2. Das Form2 Fenster ist zwahr aktiv abe lässt sich nicht
mit der Maus bewegen. Form1 Fenster ist inaktiv (oben grau)
und lässt sich ebenfalls nicht mehr bewegen.
Vermutlich verstehe ich das nicht richtig wie das mit dem parent resp child funktioniert.
Bevor der Button1 aktiviert wurde konnte das form1 bewegt werden.
Ich sende Dir die Unit NCAS00 und NCAS30,in der procedur MAN wird das Menue MAN/REF aufgebaut. Da diese Units ursprünglich
von MS-Pascal Modulen stammen, ist dort noch viel auskomentiert.
Gestartet wird MAN durch das der Status.CNC.ZBETR (globale var (record)) wert 8 hat.Diese Record beinhaltet Meldunge
der von der rs232 eingelesen wurde.
Ich bin gespannt was Du dazu meinst.Vielen Dank.
Falls dich interessiert für was das ganze: http://www.antonkurka.ch/KurkaAGSeiten/Kurka_AG.htm
mfg Anton

[himitsu]

Gibt es vieleicht eine Exception, oder ein anderes Fenster, welches sich hinter den Fenstern versteckt und den Fokus wegschnappt? (ShowModal)

Wenn man Screen.OnActiveFormChange und Screen.OnActiveControlChange verwendet, dann kann man irgendwo loggen, wie und wo der Fokus umherwandert,
bzw. mit Screen.ActiveCustomForm und Screen.ActiveControl kann man auch im Debugger die aktuelle Position anzeigen lassen.

Zitat:

Delphi-Quellcode:

procedure TForm2.Form2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Taste:= Key;
  Refresh;
  Key:= 0;
  Label1.Caption:= IntToStr(Key);
end;

Ich weiß zwar nicht was Taste ist, aber im Label1 wird bestimmt nicht Ordentliches angezeigt.

[akurka]

Hallo Frank
Die Taste ist von Typ Word. Das mit dem TForm2.Form2KeyDown war ein Versuch (der auch nicht mit refresh funktioniert hat), ich möchte lieber aber die TForm2.Form2KeyPress verwenden, weil es key als Char liefert, dies kopiert in Zchg:char kann ich direkt Anzeigen und verwerten.
Die RS232 funktioniert jetzt tadellos, allerdings
mit der RSCOM version (benützt auch direkt WinAPI).
Komischeweise war die davon abgeleitete DLL Version viel langsammer, was auch die Unterbrüche beim Empfang ausgelöst hat.
Dein SimpleComPort konnte ich bis jetzt nicht einsetzen (obwohl es mir besser gefallen hat) weil es beim OPENCOM in Exception ging.
Dagegen habe ich festgestellt bei der RSCOM version das
beim OPENCOM Exceptionen gar nicht abgefangen werden, egentlich
sträflich, aber es funktioniert. Trotzdem wäre ich froh
Deine Version zu verwenden.
Gruss Anton

[Mavarik]

Zitat von akurka:

Das Form2 Fenster ist zwahr aktiv abe lässt sich nicht
mit der Maus bewegen.

Dann Fehlt ein Application.Processmessages weil sicherlich eine Routine nicht Event-gesteuert auf ein Ergebnis wartet.
Ein Windows Programm reagiert "nur", wenn Du auch in die Application Message-Routine zurückspringst.

Mavarik

[himitsu]

Delphi-Quellcode:

  Key:= 0;  // ich meinte es eigentlich deswegen ;)
  Label1.Caption:= IntToStr(Key);

Gut, das wäre ein Grund, aber wenn die Anwendung hängt, dann sollte sich doch eigentlich Windows melden?

Bei "versteckten" Fenstern:
Im Zweifel einfach mal Alt+Leertaste drücken und schauen ob ein Menü auf geht.
Und im deutschen Windows kann man dann noch mit V das Verschieben aktivieren und via Pfeiltasten schauen ob von irgendwo ein Fenster herkommt.

[akurka]

Hallo Mavarik
ja, tatsächlich es funktioniert,vielen Dank für den Tipp.
Es löscht aber zugleich Hintergund von Image und praktisch alle Werte die nur einmal eingetragen wurden. Wenn ich die Application.Processmessages vor dem Image Aufbau benütze funktioniert wieder dir Eingabe nicht.Siehe Beilage.
Fehlt da noch etwas ?
Gruss Anton

[himitsu]

Wird einfach nur auf das Canvas des Images gezeichnet? (ohne Zwischenspeicherung des Bildes)


@Anhang: Sowas wollte ich schon lange mal machen:
Das FocusDebugger-Datenmodul ins Programm aufnehmen und automatisch erstellen lassen (ansonten nicht vergessen es zu erstellen),
DebugProject und dann das eigene Programm starten ... schon sieht man unabhängig, ob das Programm reagiert und wo der Fokus liegt.

[akurka]

Hallo Frank
die Komponente SaveDialog habe ich auf beiden Formularen aber
offenbar nützt es nicht.Welche Parameter muss man dann setzen zum
zurück speichern ? Es hat eine ganze Menge.
Gruss Anton

[himitsu]

Wenn direkt auf Image1.Canvas gezeichnet wird, dann ist das Ganze wie eine TPaintBox ... sobald etwas das übermals, bzw. ein Neuzeichnen anstößt, dann ist alles weg.

Beim TImage kann man in Image1.Picture.Bitmap.Canvas zeichnen, also wenn in das Image1.Picture ein TBitmap geladen wurde.
Ist beim Zugriff auf Picture.Bitmap kein TBitmap in dem Image1.Picture.Graphic drin, dann wird automatisch Eines erstellt (und ein eventuell anderes vorhandenes Grafikformat wird abei gelöscht).

Muß sich das TImage jetzt neu zeichnen, dann nimmt es dafür das Bild vom Image1.Picture.Grafic (welches ja das TBitmap enthält).

Alles ist immer in Picture.Grafic drin und die anderen Property, wie Icon und Bitmap casten das entsprechend und sorgen vorher dafür, daß dieser TGrafic-Typ auch vorhanden ist.


Der TSaveDialog selber macht nichts, außer über .Execute den Dialog anzuzeigen und über .FileName dann den Namen rauszurücken.
Das eigentliche Speichern muß man dann selber auslösen, über eine der SaveTo...-Methoden des Grafikobjektes.