AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Label im Panel - onmousedown "durchreichen"

Label im Panel - onmousedown "durchreichen"

Ein Thema von tofse · begonnen am 20. Mär 2012 · letzter Beitrag vom 20. Mär 2012
Antwort Antwort
tofse

Registriert seit: 6. Jun 2011
Ort: Saarlouis
131 Beiträge
 
Delphi XE Professional
 
#1

Label im Panel - onmousedown "durchreichen"

  Alt 20. Mär 2012, 10:17
Hallo,
ich habe eine Klasse von TPanel abgeleitet:
Code:
TTermin = Class(TPanel)
Innerhalb der Klasse gibt es ein TLabel:
Code:
LabelTerminArt:TLabel;
Außerhalb der Klasse (im Hauptformular) verwende ich die Ereignisse onmousedown und onmouseup:
Code:
Termin:=TTermin.Create(self);
Termin.Parent:=self;
Termin.OnMouseDown:=ControlMouseDown;
Termin.OnMouseUp:=ControlMouseUp;
Das Problem ist nun, dass die Methoden nicht aufgerufen werden, wenn der Benutzer auf das Label klickt. Deshalb die Frage, ob man das onmousedown/-up auf das Label innerhalb meiner Klasse "durchreichen" kann, so als ob direkt auf das Panel geklickt wurde?

Was mich wundert, ich verwende auch ein Popupmenü für die Terminobjekte
Code:
Termin.PopupMenu:=PopupActionBarTermin;
Wird hier mit der re. Maustaste auf das Label geklickt, dann geht das Popupmenu auch auf, d.h. hier funktioniert das "durchreichen" ohne dass ich speziell was eingestellt hätte

Wieder mal Danke!
Christof
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Label im Panel - onmousedown "durchreichen"

  Alt 20. Mär 2012, 10:22
Weise einfach in der TTermin-Klasse dem Label das eigene OnMouseUp/OnMouseDown zu. Wann allerdings dafür der richtige Zeitpunkt ist, weiß ich nicht aus dem Hut, im Konstruktor ist es möglicherweise zu früh. Man könnte sich aber selbst eine Message posten, in dessen Behandlungsroutine man die Zuweisung erledigt, das sollte klappen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
tofse

Registriert seit: 6. Jun 2011
Ort: Saarlouis
131 Beiträge
 
Delphi XE Professional
 
#3

AW: Label im Panel - onmousedown "durchreichen"

  Alt 20. Mär 2012, 10:28
Weise einfach in der TTermin-Klasse dem Label das eigene OnMouseUp/OnMouseDown zu.
Das habe ich mir auch schon überlegt, aber es soll ja der Code genutzt werden, der außerhalb von TTermin in onmousedown definiert wurde.
Es müsste also innerhalb der Klasse ein onmousedown auf die Klasse selber simuliert werden, wenn auf das Label geklickt wurde.

Funktioniert sowas ?

Edit:
klappt so
Code:
procedure TTermin.LabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
  Self.MouseDown(Button,Shift,1,1);
 end;

Geändert von tofse (20. Mär 2012 um 10:38 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Label im Panel - onmousedown "durchreichen"

  Alt 20. Mär 2012, 10:38
Wenn das OnMouseDown des Panels selbst (neu) zugewiesen wird, muss ja irgendein Event ausgelöst werden. Ich habe gerade nicht die Zeit, nachzuschauen, aber wenn man da rankommt, kann man das überschreiben und gleich die Zuweisung für das Label dort erledigen. Das dürfte die sauberste Lösung sein.

[edit] Oder so, das ist natürlich einfacher [/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.336 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Label im Panel - onmousedown "durchreichen"

  Alt 20. Mär 2012, 12:25
Man kann auch eine eigene Komponente ableiten und die Behandlung von HitTest überschreiben. Dann wird die Komponente quasi (unter den gewünschten Umständen) für die Maus "transparent".

Ich habe für meine Komponenten eine Eigenschaft "MouseTransparent" ein geführt, mit der ich das Verhalten steuern kann.
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz