Forum: Object-Pascal / Delphi-Language
by Mokus,
6. Nov 2014
ja, ich musste nämlich mit der Paintbox auf das eigentlich event reagieren.
Forum: Object-Pascal / Delphi-Language
by Mokus,
8. Okt 2014
Hallo zusammen...
ich hatte in der Falschen richtung geforscht. hab nun die Lösung.
Es lag nicht an der TPAitnbox(Sender); das hatte nämlich funktioniert.
Bei mir war folgendes Problem.
Der Sender war ein TMenuItem . . .
if TPopupMenu(TMenuItem(Sender).Owner).Owner is TPaintBox then ShowMessage( '');
Forum: Object-Pascal / Delphi-Language
by Mokus,
8. Okt 2014
Hi Himitsu,
Schau dir einmal bitte meine Methode an, wo ich diese erstelle.
mit if Sender = PaintBox1 komm ich leider nicht weit, denn alle Paintboxen heißen ja gleich & es könnten theoretisch unendlich sein.
( kommt drauf an wie schlau der anwender ist ,) )
d.h.
IF Sender.ClassName = 'TPaintbox' then
Forum: Object-Pascal / Delphi-Language
by Mokus,
8. Okt 2014
Mahlzeit,
ich habe noch einmal eine frage.
ich habe i verschiedene Paintboxen, welche dynamisch im Quellcode erstellt werden, also keine festen Komponenten.
Diese sollen aber alle das gleiche Zeichnen.
var
Form: TTFormWithSave;
SBPaintBox: TPaintBox;