In Windowproc handle bekommen

[DGL-luke]

hallo, ich will auf mehrere TImage32 droppen und hab deshalb die wndprocs überschrieben. und zwar mit dieser prozedur:

Delphi-Quellcode:

procedure TMixer.NewWndProc(var Msg:TMessage);
var Image:TImage32;
    i,k:integer;
begin
 for i:= 0 to 5 do
  if Images[i].Handle = {???}
    k:=i
  else Exit;

 if Msg.message = WM_DROPFILES then
   handledrop(k);

OldwndProcs[k](m);
end;

kann ich hier irgendwo das handle des entsprechenden TImage32 rauskriegen? in TMsg wärs ja dabei, aber nicht in TMessage :|

[Olli]

Was ist denn ein TImage32, gibt's in meinem Delphi nämlich nicht.

Wenn es sich um eine Klasse handelt, mußt du dich selber um einen Mechanismus zur Übergabe kümmern. Ansonsten klär mich auf was TImage32 ist.

[DGL-luke]

verbesserte Kapselung von TImage, G32-Lib, www.g32.org .

ja, ist ne klasse.

Zitat:

Mechanismus zur Übergabe

hm... ich glaub dann überleg ich mir was mit dragquerypoint.

[Olli]

Die VCL stellt dir keine Methoden für Drag&Drop zur Verfügung? Wenn doch, dann hättest du ja den "Sender".

[DGL-luke]

ähm... also wenn du mir eine VCL-Methode sagst, mit der ich eine Datei aus dem explorer auf ein Control ziehen kann und per Event den dateinamen krieg, musst du mir nur noch deine Kontonummer schicken...

Ich hab mir auch schon gedacht, dass TImage32 evtl. so etwas implementiert, aber da is so ziemlich Sense... Ich hab mich aber auch mit den normalen VCL-Drag&Drop/Dock-Sachen noch nie auseinandergesetzt, ich glaube, die funktionieren auch nur innerhalb der Anwendung... :?:

[Flocke]

Du wirst es wohl fünf mal hinschreiben müssen ... oder du bastelst dir eine Klasse dafür (hab ich mal hier gemacht).

[SirThornberry]

Wenn TImage32 von TImage irgendwo abgeleitet wurde dann hat TImage32 kein Handle und kann dementsprechend kein wm_Dropfiles empfangen.

[DGL-luke]

natürlich hat das ein handle, es ist nicht von TImage abgeleitet.... aber ich habs jetzt anders gelöst.

danke.

[SirThornberry]

hmm, du überschreibst die WindowProc von TMixer, dementsprechend würdest du an dieser Stelle über TMsg auch nur das Handle der TMixerInstanz bekommen. Und das würdest du wenn TMixer ein Handle hat über Self.handle bekommen. Aber du willst ja aus irgend einem Grund auf irgend ein Handle von TImage32 testen.

[DGL-luke]

ähm... ne, das ist nicht die wndproc von TMixer. das ist die (neu zugewiesene) wndproc von 5 TImage32-Kompos.

aber wie bereits gesagt: das problem hat sich erledigt, ich bin jetzt einen ganz anderen weg gegangen.

[Ultimator]

Zitat:

Zitat von DGL-Luke

ich bin jetzt einen ganz anderen weg gegangen.

Dürfen wir den auch wissen?

[DGL-luke]

nein.

1. hat überhaupt nix mit windowprocs zu tun
2. gehört zum BW Inf

[tommie-lie]

[OT]

Zitat:

Zitat von DGL-luke

2. gehört zum BW Inf

Schön, das wir das auch schon erfahren :roll:[/OT]

[Luckie]

Zitat:

Zitat von Ultimator

Zitat:

Zitat von DGL-Luke

ich bin jetzt einen ganz anderen weg gegangen.

Dürfen wir den auch wissen?

Zitat:

Zitat von DGL-luke

nein.

1. hat überhaupt nix mit windowprocs zu tun
2. gehört zum BW Inf

Da hilft man doch immer wieder gerne. :evil: Wenn du schon von vorneherein nicht vorhast hier die Lösung zu posten, dann bitte auch nicht erst hier um Hilfe. Das ist nämlich sehr höflich gegenüber denjenigen, die versucht haben dir zu helfen.

[DGL-luke]

Jetzt nochmal für alle:

Hätte ich eine absolut geniale Lösung gefunden, wie man aus TMessage ein hWnd rausdestilliert, hätte ich das natürlich geschrieben. Haltet mich bitte nicht für unsozial.

Aber es ist, wie ich schon geschrieben hatte:

Es hat überhaupt nix mit windowprocs zu tun ! ich habe in meinem Projekt jetzt keine selbstdefinierten Windowprocs mehr.
Somit hat die Lösung (Ich habe es mit einem banalen OpenDialog gemacht :roll: ) auch überhaupt nichts mehr mit dem Threadthema zu tun.

PS: sry wegen 2., aber das trifft eher auf die Lösung zu, als auf die Frage. Es ist ja nicht so, als würde ich mir gerne Ideen zusammenklauen. Aber sollte ich irgendwann tatsächlich irgendwo auf einem Podest stehen, werde ich der DP natürlich als erstes meinen Dank aussprechen. ;)
PPS: Ich hab mich ja hier noch gar nicht bedankt :shock: also: danke für eure Antworten.

[Vjay]

Um die Frage mal dennoch zu beantworten...

Benutz nicht die "Highlevel" TWndProc, welche von Delphi aufgesetzt wird, sondern die "Lowlevel"

Delphi-Quellcode:

LRESULT CALLBACK WindowProc(

    HWND hwnd,   // handle of window
    UINT uMsg,   // message identifier
    WPARAM wParam,   // first message parameter
    LPARAM lParam    // second message parameter
   );

zusammen mit setWindowLong. Dann funktionierts auch mit dem Handle ;)

Anm. dafür darf man dann aber evtl. nach dem Objekt suchen... Also wäre ein Subclassing wohl doch das Einfachste.

Gruss

[DGL-luke]

Gut, dass ich gelegentlich ein wenig in alten Projekten rumkrame...

Nach dem Objekt suchen sollte nicht so schwierig sein, ich habs ja in nem array drin und kann dann einfach nach den handles durchlaufen.

Jetzt muss ich das ganze aber umschreiben... was hat denn callback für eine aufrufkonvention?

Delphi-Quellcode:

TAPIWndMethod = function(Handle: hWND; Msg: Cardinal;  wParam, lParam: Integer): Integer; {stdcall;??}

(ach ja... wers gerade im Kopf hat, könnte mir dann auch gleich den Aufruf für Setwindowlong hinschreiben. Erspart mir die Suche *nett guckt* ;) )

EDIT:

Delphi-Quellcode:

   SetWindowLong(Images[i].Handle,GWL_WNDPROC,@NewWndProc);

tut anscheinend nicht... sagt immer "Variable erforderlich"... wie geht das gleich nochmal?

EDIT2:

da war doch was mit Klassen....

Integer(@TForm1.NewWndProc) :love:

[DGL-luke]

Sodele, alles in Butter. Es lag daran, dass die VCL immer den impliziten self-parameter mit reingebracht hat, was natürlich zum Unfall führt. Das ganze ohne Klasse deklariert, und alles tut wie es soll. Natürlich bekommt ihr jetzt auch meine Lösung zu sehen. :)

Delphi-Quellcode:

type TAPIWndProc = function(WndHWND: HWnd; uMsg: UInt; wParam: WParam; lParam: LParam): LResult; stdcall;

function NewWndProc(WndHWND: HWnd; uMsg: UInt; wParam: WParam; lParam: LParam): LResult; stdcall;
var Image:TImage32;
    OldProc: TAPIWndProc;
    i,k:integer;
    len:integer;
    s:PChar;
    FwdMsg: TMessage;
begin
  for i := 0 to 5 do
    if (Mixer.Images[i].Handle = WndHWND) then // Instanz suchen
      begin
        Image := Mixer.Images[i];
        OldProc := Pointer(@Mixer.OldWndProcs[i]);
        break;
      end;

  if (uMsg = WM_DROPFILES) then //Bild laden
    begin
      i := Image.Tag;
      len := DragQueryFile(wParam,0,nil,0) +1;
      s := StrAlloc(len);
      DragQueryFile(wParam,0,s,len);

      Mixer.pbms[i].Free;
      Mixer.pbms[i] := TPBM.Create(s);
      Image.Bitmap.Assign(Mixer.pbms[i].Draw());
      StrDispose(s);
    end;

  Result := OldProc(WndHWND,uMsg,wParam,lParam);  // Das ganze an die alte WndProc übergeben
end;

procedure TMixer.FormCreate(Sender: TObject);
var i:integer;
begin
Images[0] := ImageLeft;
Images[1] := ImageRight;
Images[2] := ImageResult;
Images[3] := Dump1;
Images[4] := Dump2;
Images[5] := Dump3;

for i := 0 to 5 do
  begin
   Images[i].HandleNeeded; //Handle erzeugen
   OldWndProcs[i] := Pointer(GetWindowLong(Images[i].Handle,GWL_WNDPROC)); //Alte Wndproc speichern
   SetWindowLong(Images[i].Handle,GWL_WNDPROC,Integer(@NewWndProc)); //Neue Wndproc injizieren
   DragAcceptFiles(Images[i].Handle,true); //Und hier der Zweck des ganzen Brimboriums!
  end;
end;

Was lange währt, wird endlich gut....

[negaH]

Zitat:

Delphi-Quellcode:

 for i := 0 to 5 do 
    if (Mixer.Images[i].Handle = WndHWND) then // Instanz suchen 
      begin 
        Image := Mixer.Images[i]; 
        OldProc := Pointer(@Mixer.OldWndProcs[i]); 
        break; 
      end;

das geht einfacher mit

Delphi-Quellcode:

Image := FindControl(WndHWND) as TImage32;

Gruß Hagen

[DGL-luke]

Danke! Da ich ja den Index im Tag habe, kann ich sogar ganz auf den Durchlauf verzichten. :-D