Zitat von
Kullerkeks:
aber wieso ist "onmousemove" nicht geeignet? es funktioniert doch und das zählt doch (jedenfalls bei dem, was ich machen will)
weil onMouseMove immer aufgerufen wird, wenn die maus innerhalb des Controls bewegt wird. die eigenschaft mit dem perform muss aber nur 1x gesetzt werden (intuitiv im Mousedown) und nix zig 1000 mal
haue den Code einfach mal ins Mousedown und du wirst sehen das reicht.
Delphi-Quellcode:
procedure TForm1.PanelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
// if ssLeft in Shift then
// begin
ReleaseCapture;
(Sender as TPanel).Perform(WM_SYSCOMMAND,$F012,0); //jetzt kannst du die event-methode auch für alle panels nehmen
// end;
end;
Gruß Frank