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.