Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   sender=mouse (https://www.delphipraxis.net/37213-sender%3Dmouse.html)

hardcorehorst 2. Jan 2005 14:41


sender=mouse
 
Versuche rauszukriegen wie ich
sender=mouse
abfragen kann
hab schon sender=mouse, sender= tobject(mouse) und so probiert !

wie klappts ??

SirThornberry 2. Jan 2005 14:43

Re: sender=mouse
 
der Sender bei einem Event ist NIE die maus sondern immer das Object welches die Ereignisprocedure auruft. Hast du zum Beispiel eine OnClickProcedure so ist der Sender der Button auf den du geklickt hast.

hardcorehorst 2. Jan 2005 14:46

Re: sender=mouse
 
na es geht darum
Delphi-Quellcode:
procedure TForm1.CheckBox13Click(Sender: TObject);
begin
if sender=mouse then    
skalierungs_panel.Visible:=checkbox13.Checked;
und das wird mal durch den mausklick und mal durch checkbox13.checken:=true ausgelöst

ich will aber nur bei mausklick was machen !

weis es jemand?

Joe24 2. Jan 2005 15:46

Re: sender=mouse
 
Benutze doch das OnMouseDown-Event der CB

Muetze1 2. Jan 2005 20:05

Re: sender=mouse
 
Moin!

Zitat:

Zitat von hardcorehorst
na es geht darum
Delphi-Quellcode:
procedure TForm1.CheckBox13Click(Sender: TObject);
begin
if sender=mouse then    
skalierungs_panel.Visible:=checkbox13.Checked;
und das wird mal durch den mausklick und mal durch checkbox13.checken:=true ausgelöst

ich will aber nur bei mausklick was machen !

weis es jemand?

Und Sender ist immer das Element was dieses Event auslöst und das ist hier in beiden Fällen CheckBox13 (wie SirThornberry schon sagte). Und du kannst daher nicht unterscheiden ob es ein zuweisen der Property ist oder durch ein Mausklick. Daher ist der Vorschlag von Joe24 zu berücksichtigen.

MfG
Muetze1

hardcorehorst 5. Jan 2005 15:34

Re: sender=mouse
 
ja alles klar

danke leute :thumb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:06 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz