AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi TForm1.Canvas nicht in procedure zu verwenden?

TForm1.Canvas nicht in procedure zu verwenden?

Ein Thema von pyromane · begonnen am 9. Apr 2008 · letzter Beitrag vom 10. Apr 2008
Antwort Antwort
Seite 1 von 2  1 2   
pyromane

Registriert seit: 5. Sep 2007
15 Beiträge
 
#1

TForm1.Canvas nicht in procedure zu verwenden?

  Alt 9. Apr 2008, 17:55
Hoi,
ich schreib gerade an einer Ampelschaltung für Delphi.

Zuerst hab ich nur eine Ampel gemalt, die man a) Manuell oder b) Automatisch steuern lassen kann
-> ich hatte keine Lust die Zeichenbefehle immer reinzukopieren ->
zack das
Delphi-Quellcode:
Canvas.Rectangle(40,40,160,410);
Canvas.Ellipse(50,50,150,150);
Canvas.Ellipse(50,175,150,275);
Canvas.Ellipse(50,300,150,400);
(is jetzt nur die Ampel - Aus
es gibt noch Rot,Gelb,Grün -> ab in eine Prozedur
Delphi-Quellcode:
procedure Ampelschalten(Zustand: Integer);{0=aus, 1=grün, 2=gelb, 3=rot}
begin

If Zustand=0 then
begin
TForm3.Canvas.Brush.Color:=clBlack;
TForm3.Canvas.Ellipse(50,50,150,150);
TForm3.Canvas.Ellipse(50,175,150,275);
TForm3.Canvas.Ellipse(50,300,150,400);
end;

If Zustand=1 then
begin
TForm3.Canvas.Brush.Color:=clBlack;
TForm3.Canvas.Ellipse(50,50,150,150);
TForm3.Canvas.Ellipse(50,175,150,275);
TForm3.Canvas.Brush.Color:=clGreen;
TForm3.Canvas.Ellipse(50,300,150,400);
end;

If Zustand=2 then
begin
TForm3.Canvas.Brush.Color:=clBlack;
TForm3.Canvas.Ellipse(50,50,150,150);
TForm3.Canvas.Ellipse(50,300,150,400);
TForm3.Canvas.Brush.Color:=clYellow;
TForm3.Canvas.Ellipse(50,175,150,275);
end;

If Zustand=3 then
begin
TForm3.Canvas.Brush.Color:=clBlack;
TForm3.Canvas.Ellipse(50,175,150,275);
TForm3.Canvas.Ellipse(50,300,150,400);
TForm3.Canvas.Brush.Color:=clRed;
TForm3.Canvas.Ellipse(50,50,150,150);
end;
--> Jetzt sagt er mir, dass ich Canvas an dieser Stelle net benutzen darf ????
Warum das nichT?
Ich habe doch extra TFORM3 davor geschrieben, da ampelschaltung ja kein "Untermieter" von TForm ist.

Das Projekt hängt im Anhang

Vielen Dank im Vorraus
mfg Pyromane
Angehängte Dateien
Dateityp: zip ampelschaltung_108.zip (10,4 KB, 3x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von patti
patti

Registriert seit: 20. Okt 2004
Ort: Mittelfranken
665 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: TForm1.Canvas nicht in procedure zu verwenden?

  Alt 9. Apr 2008, 17:57
Versuch es mal nur mit "Form3" also das T vor der Bezeichnung weglassen. Sollte gehen!
Patrick Kreutzer
[Informatik-Student im 4. Semester]
http://www.patti-k.de/
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#3

Re: TForm1.Canvas nicht in procedure zu verwenden?

  Alt 9. Apr 2008, 17:59
Du musst wenn schon Form3 schreiben, ohne T davor. Mit TForm3.canvas greifst du auf die Klasse zu, nicht auf die Instanz. Das kann natürlich nur einen Fehler geben, weil Canvas ja erst beim erzeugen der Instanz erzeugt wird.
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.169 Beiträge
 
Delphi 10.4 Sydney
 
#4

Re: TForm1.Canvas nicht in procedure zu verwenden?

  Alt 9. Apr 2008, 18:00
Wieso ist Ampelschalten keine Methode von TForm3?
Dann kannst du dir das ganze TForm3/Form3 (was für sinnvoller Name ) sparen und hast auch einen Code der auch etwas besser objektorientiert aufgebaut ist.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
pyromane

Registriert seit: 5. Sep 2007
15 Beiträge
 
#5

Re: TForm1.Canvas nicht in procedure zu verwenden?

  Alt 9. Apr 2008, 18:02
O_o
Danke
Diesen Fehler mach ich doch immer wieder. Es ist zum verrückt werden.

PS: Und nochetwas:
wenn ich das Fenster minimiere, und wieder maximiere, ist der Schwarze Rahmen, der aus performance gründen nicht bei jedem Schritt neu gez. wird, verschwunden. Gibt es etwas ähnliches wie TForm3.Reactivate , indem man halt etwas machen kann, sobald das Fenster wieder nach oben geholt wird?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

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

Re: TForm1.Canvas nicht in procedure zu verwenden?

  Alt 9. Apr 2008, 18:05
Verlege das Zeichnen doch in das OnPaint-Ereignis, dann kümmert sich das Formular selbst darum, wenn es neu gezeichnet werden muss.
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 Fussball-Robby
Fussball-Robby

Registriert seit: 22. Okt 2007
Ort: Nähe Köln
1.063 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: TForm1.Canvas nicht in procedure zu verwenden?

  Alt 9. Apr 2008, 18:05
Oder (imho besser): Prozedur im private-Abschnitt der Form deklarieren. Außerdem solltest du in der Prozedur Case benutzen:
Delphi-Quellcode:
type
  TForm3 = class(TForm)
    //[..]
  private
    procedure Ampelschalten(Zustand: Integer);
  end;
//[..]

procedure TForm3.Ampelschalten(Zustand: Integer);{0=aus, 1=grün, 2=gelb, 3=rot}
begin
  with Canvas do
  begin
    case Zustand of
      0:begin
          Brush.Color:=clBlack;
          Ellipse(50,50,150,150);
          Ellipse(50,175,150,275);
          Ellipse(50,300,150,400);
      end;
      1:begin
          Brush.Color:=clBlack;
          Ellipse(50,50,150,150);
          Ellipse(50,175,150,275);
          Brush.Color:=clGreen;
          Ellipse(50,300,150,400);
      end;
      2:begin
          Brush.Color:=clBlack;
          Ellipse(50,50,150,150);
          Ellipse(50,300,150,400);
          Brush.Color:=clYellow;
          Ellipse(50,175,150,275);
      end;
      3:begin
          Brush.Color:=clBlack;
          Ellipse(50,175,150,275);
          Ellipse(50,300,150,400);
          Brush.Color:=clRed;
          Ellipse(50,50,150,150);
      end;
    end;
  end;
end;
Mfg

[Edit]hab mal wieder en bisschen länger gebraucht [/Edit]
Robert L.
Der folgende Satz ist richtig!
Der vorherige Satz ist falsch!

Paradox
  Mit Zitat antworten Zitat
pyromane

Registriert seit: 5. Sep 2007
15 Beiträge
 
#8

Re: TForm1.Canvas nicht in procedure zu verwenden?

  Alt 9. Apr 2008, 18:10
jop Robby das funzt besser.
Aber noch eine Frage:
Wie kann ich die Ablauf Schleife in Echtzeit abbrechen - also nicht erst, wenn die nächste Break bzw. until Abfrage erreicht ist?
  Mit Zitat antworten Zitat
Benutzerbild von STS301
STS301

Registriert seit: 6. Nov 2007
668 Beiträge
 
Delphi 7 Personal
 
#9

Re: TForm1.Canvas nicht in procedure zu verwenden?

  Alt 9. Apr 2008, 18:12
mit Timer
Sebastian

ölpölp

Linux will rule the universe!!
  Mit Zitat antworten Zitat
pyromane

Registriert seit: 5. Sep 2007
15 Beiträge
 
#10

Re: TForm1.Canvas nicht in procedure zu verwenden?

  Alt 9. Apr 2008, 18:38
So;
ich habe das "Laufen" der Ampel jetzt in die procedur Ampellaufen gepackt;
genauso, wie sie früher war.;
Bei Klick auf Auto wird der Timer gestartet, es passiert aber nur Mist;
bei Klick auf Abbrechen, läuft die Schaltung wie sie sein soll...;
da sie aber in der Endlosschleife until 1=2 steckt, kommt man nur noch per;
Taskmanager raus. ???
Mfg Pyromane
Angehängte Dateien
Dateityp: zip ampelschaltung_144.zip (225,0 KB, 6x aufgerufen)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

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 07:17 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