AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Casting TObject -> TPanel

Ein Thema von MrSpock · begonnen am 2. Mai 2010 · letzter Beitrag vom 3. Mai 2010
Antwort Antwort
Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#1

Casting TObject -> TPanel

  Alt 2. Mai 2010, 21:53
Hallo,

ich habe in einer Methode des OnClick Ereignisses ja den Parameter TObject *Sender.

Wie kann ich diesen als TPanel casten und auf den Canvas zugreifen bzw. auf das Panel zeichnen?

Also so etwas wie in Pascal: (Sender as TPanel).Canvas.LineTo(20, 20);
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.686 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: Casting TObject -> TPanel

  Alt 3. Mai 2010, 00:38
Harte Casts sehen in C so aus:
((TPanel)Sender).Canvas.Foo

In diesem Falle wäre allerdings ein dynamischer Cast die "elegantere" Wahl:
dynamic_cast<TPanel>(Sender)

Ob und wie da jetzt noch Dereferenzierungen/Adressoperatoren hin müssen kann ich leider nicht sagen, die verwirren mich immer
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#3

Re: Casting TObject -> TPanel

  Alt 3. Mai 2010, 08:45
Hallo Medium,

ich habe es es jetzt so gemacht:

Code:
((TPanel *)Sender)->Color
Canvas gibt es bei einem TPanel nicht!?
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#4

Re: Casting TObject -> TPanel

  Alt 3. Mai 2010, 09:07
TPanel hat schon einen Canvas, dieser ist aber protected. Du wirst also eine Crackerklasse brauchen.
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 MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#5

Re: Casting TObject -> TPanel

  Alt 3. Mai 2010, 10:25
Hallo DeddyH,

ich wollte erst ein Kreuz auf das Panel malen, werde aber jetzt einfach seine Farbe ändern, um zu kennzeichnen, dass es markiert ist.
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat
Antwort Antwort


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 12:41 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