Delphi entwicklungs umgebung

[EWeiss]

Zitat von Luckie:

Ähm, der Code "springt" aber auch "an", wenn ein Debugger mit deinem Prozessverbunden ist. Für Komponenten gibt es einen Componentenstate, der dir sagt, ob du dich in der IDE befindest oder nicht.

Warum musst du dass denn wissen?

Es werden innerhalb des Quellcode (nicht von mir) die keys neu definiert.
Danach habe ich keinen zugriff mehr auf die Tasten um die zeilen durchzugehen beim debuggen.

Auszug:

Shortcut_1=F8
Shortcut_2=F7
Shortcut_3=F9

steht in der INI...

Delphi-Quellcode:

procedure ShortCut_SetupHotkey(Sender: TObject);
begin
  SetHotkey(Form1.Handle,1,ShortCut_1);
  SetHotkey(Form1.Handle,2,ShortCut_2);
  SetHotkey(Form1.Handle,3,ShortCut_3);

Code:

function SetHotkey(aHandle:THandle; HotkeyID:cardinal; Shortcut:TShortcut; AutoRegister:boolean=true):boolean;
var
   Key: Word;
   Shift:TShiftstate;
   Modifiers:integer;
begin
   result:=false;
   if Shortcut = 0 then exit;

   Modifiers:=0;
   Unregisterhotkey(aHandle,HotkeyID);

   ShortCutToKey(ShortCut, Key, Shift);   // unit Menus;
   if ssCtrl in Shift then Modifiers:=MOD_CONTROL;
   if ssAlt in Shift then Modifiers:=Modifiers or MOD_ALT;
   if ssShift in Shift then Modifiers:=Modifiers or MOD_SHIFT;
   if AutoRegister then
       result:=RegisterHotKey(aHandle, HotkeyID, Modifiers, Key)
       else
       result:=true;
end;

wie schon gesagt ist nicht von mir muss aber damit leben.
Was das debuggen extrem erschwert oder gar unmöglich macht.

gruss Emil