EventArgs

[JasonDX]

Hallo
Bei deinem Problem gibts gibt 2 Möglichkeiten:

1. Du bist sicher, dass der Parameter, der mitkommt, ein PaintEventArg ist, und es genügt ein Typecast: Einfach PaintEventArgs(e) mitgeben.
   Im Fall noch mit der Abfrage davor:
   
   Delphi-Quellcode:

   if (e is PaintEventArg) then
     grafik_maus(sender, PaintEventArgs(e))
   else
     MessageBox.Show('Autsch - keine PaintEventArgs');

2. Du bist sicher, dass nicht immer ein PaintEventArgs kommen muss.
   In dem Fall musst du dir ne zusätzliche Instanz von PaintEventArgs anlegen und die davon gebrauchten Eigenschaften zusätzlich setzen, wie bspw. Graphics ect.
   
   Delphi-Quellcode:

   procedure twinform.maus_rein(sender: System.Object; e: System.EventArgs); 
   var
     eArgs: System.Windows.Forms.PaintEventArgs;
   begin
     eArgs := System.Windows.Forms.PaintEventArgs.Create(...);
     grafik_maus(sender, eArgs);
     eArgs.Dispose(); //Glaub dass das so heißt, oder gibts immernoch Free()?
   end;

greetz
Mike

PS: Ich sitz leider nich an meinem rechner, und mit mit Delphi.NET nicht allzugut bewandt, und kann deswegen nich für Syntax ect. garantieren, dürfte aber schon mehr oder weniger stimmen