Der Quellcode für ein neues
VCL-Projekt:
Code:
object Panel1: TPanel
Left = 96
Top = 112
Width = 145
Height = 97
Caption = 'Panel1'
PopupMenu = PopupMenu1
TabOrder = 1
end
object PopupMenu1: TPopupMenu
Left = 120
Top = 136
object N11: TMenuItem
Caption = '1'
end
object N21: TMenuItem
Caption = '2'
OnClick = N21Click
object N41: TMenuItem
Caption = '4'
end
object N51: TMenuItem
Caption = '5'
end
end
object N31: TMenuItem
Caption = '3'
end
end
Text kopieren und im Form-Designer einfügen (Strg+V ... nicht in der Codeansicht)
und vorher die Methode "N21Click" implementieren oder nachher mit Item "2" verknüpfen.
Delphi-Quellcode:
procedure TForm23.N21Click(Sender: TObject);
begin
Beep; // hier einen Haltepunkt setzen
end;
Jetzt noch den haltepunkt setzen, F9 drücken, im Programm das Popup öffnen und die Maus über "2" halten...
Das Programm vorher am Besten noch maximieren, so daß dessen Form die
IDE verdeckt. (aber eigentlich würde ich ja eher davon abraten, wenn man keinen Spaß haben will
)
Sooooooooo, jetzt versucht mal mit Alt+Tab in den Debugger zu wechseln, per Task-Manager (wechseln zu) oder per Klick auf die Taskleiste.
Viel Spaß noch.
PS: Das Projekt mit'm Task-Manager abschießen geht nicht, wenn es im Debugger angehalten ist.
Delphi abschießen oder Abmelden, bzw, "Task beenden" im Task-Manager und dann bei der Delphi-Debug-Beenden-Frage und vorallem beim "Soll ich speichern?" ganz schnell ja sagen.
Wenn Windows beim Runterfahren was von "abschießen" fragt, dann abbrechen.
Bekannte Mindestvoraussetzungen:
- XE bis XE7
- Windows 7
- mit oder ohne RDP/TeamViewer dazwischen
Ob es auch in anderen Umgebungenen "funktioniert", kann ich nicht sagen ... aber vielleicht ihr.
ACHTUNG: Vorher
alles Wichtige speichern, nicht daß was verloren geht.
