Zitat von
Luckie:
Er sollte dann fertig sein, wenn die Funktion zurückkehrt.
Sorry für's aufwärmen, aber das ist leider nicht der Fall.
Beispiel: (vereinfacht)
Delphi-Quellcode:
case Com of
MCpaste:
Command.lpVerb := MakeIntResource('
paste');
MCcopy:
Command.lpVerb := MakeIntResource('
copy');
MCcut:
Command.lpVerb := MakeIntResource('
cut');
end;
if Command.lpVerb <>
nil then
begin
Check := PConMenu.InvokeCommand(Command);
if Check = S_OK
then
begin
if (
Com = MCdelete)
then
Self.ClearSelectedItems;
if (
Com = MCpaste)
then
if (FileCount > 0)
and (GetFileCountFromFullPIDL(FCurRootPIDL) > FileCount)
then
Self.InsertTransferList;
//HIER keine Änderung
end else
OleCheck(Check);
Im Fall 'paste', also Einfügen über das IcontextMenü, bekommt CHeck den Wert S_OK und der Delphi-Code wird weiter abgearbeitet. Erst nachdem ich viel weiter unten im Code bin poppt z.B. die MessageBox vom Windows auf und fragt mich ob ich überschreiben möchte oder nicht.
Wie soll man da vernünftig den Vorgang behandeln??
Hat jemand Ideen?
Grüße
Sebastian