Brauche Eigenschaften von TMouseEvent

[PierreC82]

PierreChanab 12.10.2003 20:28 Uhr
Hallo zusammen, leider bin ich noch ein Afänger in Sachen Delphi. Nun versuche ich schon seit Stunden folgendes: Ich habe eine TPreviewHTML Komponente und leider hat diese keine OnMouseDown und OnKeyDown Procedure. Jetzt habe ich vor, diese Eigenschaften in eine neue Komponente zu vererben. Könnte mir vielleicht jemand helfen. Wenn noch irgendwas unklar sein sollte, erkläre ich es gerne noch genauer. Vielen Dank im voraus. Gruß Pierre

[Honie]

Hi,

ich kenne die Komponente nicht, daher weiss ich nicht, ob die Methode schon in einer Vorgänger Klasse vorhanden sind und nur als Private ode Protected deklariert sind. In diesem Fall sollte es reichen,
diese Methoden als public/published zu vererben.

Falls dies nicht der Fall ist, musst Du m.E. eine Botschafts Methode deklarieren, die auf das Windows Ergeigniss reagiert.

  procedure EineMethode (var msg: TMessage); message WM_DIE_ID_DER_BOTSCHAFT; Genauere Infos stehen in der OH drin.

Gruß

[PierreC82]

Hi Honie,

danke Dir für den Tip , ich habe es sogar alles soweit hinbekommen, dass die rechte Maustaste sowie die Shifttaste abgefangen werden. Das klappt allerdings nur solange, bis keine Homepage geladen wird. Es handelt sich um ein OLEObjekt.

Ist es denn auch möglich, diese Methoden einzusetzen nachdem die Homepage geladen wurde ?

Nette Grüße
Pierre