Forum: Win32/Win64 API (native code)
Delphi
by Bummi,
6. Aug 2012
Ich hatte meinen Beitrag 2 mal geändert, in der letzen Version gibt es ein OnItemDeleted-Event, hier kannst Du über Sender gehen ....
Forum: Win32/Win64 API (native code)
Delphi
by Bummi,
6. Aug 2012
Leider bei Clear nicht hier wäre noch LVN_DELETEALLITEMS zu behandeln...
if (Message.NMHdr.code = LVN_DELETEITEM) or (Message.NMHdr.code = LVN_DELETEALLITEMS ) then
Forum: Win32/Win64 API (native code)
Delphi
by Bummi,
6. Aug 2012
SendMessage wartet, Postmessage nicht, es wird einfach in die Schlange eingereiht...
habe nochmals etwas umgebaut ....
Forum: Win32/Win64 API (native code)
Delphi
by Bummi,
6. Aug 2012
inherited; // hier ist schön gelöscht (Originalmessagehandling abgeschlossen), aber wir sind noch in der "Schlange"
if Message.NMHdr.code=LVN_DELETEITEM then
if Message.Result=1 then // Result wird nach dem Löschen im inherited gesetzt
hat mit der "Wartesschlange" zu tun , deshalb Postmessage statt SendMessage.
BTW ich hatte es nochmals geändert, die Message wird jetzt innerhalb...
Forum: Win32/Win64 API (native code)
Delphi
by Bummi,
5. Aug 2012
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls,CommCtrl, StdCtrls;
type
TListView=Class(comCtrls.TListView)
procedure CNNotify(var Message: TWMNotifyLV); message CN_NOTIFY;
End;
TForm2 = class(TForm)