AGB  ·  Datenschutz  ·  Impressum  







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

gemeinsam auf ein paintevent zugreifen!

Ein Thema von gordon2001 · begonnen am 3. Jan 2006 · letzter Beitrag vom 4. Jan 2006
 
gordon2001

Registriert seit: 2. Jan 2006
Ort: Rostock
14 Beiträge
 
#1

gemeinsam auf ein paintevent zugreifen!

  Alt 3. Jan 2006, 15:23
Hallo hab ein problem das ich einfach nich gelöst bekomme und zwar will ich zur lauf zeit mehrer picturbox's erzeugen die alles auf ein gemeinsames PaintEvent zu greifen sollen.

ich habe also eine procedure geschrieben die das macht was ich will

Delphi-Quellcode:
procedure twinform.grafik(sender: System.Object; e: System.Windows.Forms.PaintEventArgs);
var rec: rectangle;
    rec2: rectangle;


begin
  self.Name := (sender as control).Name;

  e.Graphics.Clear(self.BackColor);
  e.Graphics.ScaleTransform(x,x);

  e.Graphics.TranslateTransform(30,30);
  e.Graphics.RotateTransform(winkel);
  rec := rectangle.Create(-22,-22,43,43);
  rec2 := rectangle.Create(-20,-20,43,43);
  e.Graphics.FillRectangle(solidbrush.Create(color.black),rec2);
  e.Graphics.FillRectangle(solidbrush.Create(color.gray),rec);
  e.Graphics.DrawRectangle(pen.create(color.Black),rec);
  textbox1.Text := e.ToString;
  e.Graphics.DrawImage(self.PictureBox1.Image, -20, -20);
end;
das klappt auch alles.

ich hab probeweiße zur entwurfszeit eine picturebox erschaffen und übergebe den sender so das die procedure weis auf welche picturebox sie das event anwenden soll.

Delphi-Quellcode:
 procedure TWinForm.PictureBox1_Paint(sender: System.Object; e: System.Windows.Forms.PaintEventArgs);
begin
 self.grafik(picturebox1, e);
end;
aber auch nur weil "e" das gleiche event hat wie die prozedure

nun will ich eine neue picturebox erzeugen mittels:

Delphi-Quellcode:
 procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);

begin

 picbox := system.Windows.Forms.PictureBox.Create;
 picbox.Name := 'picturebox2';
 picbox.Bounds := rectangle.Create(80,20,70,70);
 self.Controls.Add(picbox);
 include(self.picbox.Paint, grafik(picbox.Name, {HIER} )));
end;
was muss ich bei "HIER" übergeben damit es funktioniert????
ich komm einfach nicht weiter

vielen dank für eure hilfe!!!!
  Mit Zitat antworten Zitat
 


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 09:30 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 by Thomas Breitkreuz