Panel-Steuerung mit der Maus durch Taste aktivieren !!!

[taza]

8)
Mal ne Frage!

Ist es möglich, die "Panel-Steuerung" mit der Maus erst durch einen best. Tastendruck zu aktivieren, also dass man vorher noch die Maus "so alleine" hat, ohne das einem das Panel folgt?

Danke schonmal............
8)

[Luckie]

Setz einen Flag, den du mit der Taste setzt und immer vor einer Mausaktion abfragst, die das Panel betrifft.

[taza]

Klingt gut, aber könntest du das etwas genauer erklären, weil ich hab' nicht so sehr viel Ahnung davon...............;-)

[taza]

Was ist überhaupt ein Flag; am besten wär es, wenn jemand gleich ein Bsp machen würde - danke
:)

[Lefko]

hi :hi:

na in dem OnClick des Buttons schreibst du einfach sowas wie

Delphi-Quellcode:

PanelBewegen := not PanelBewegen;  //Typ boolean

und im OnMouseMove des Forms fragst du das dann in etwa so

Delphi-Quellcode:

if Panelbewegen then {bewege Panel}
               else {was weiss ich};

ab.

alles klar? :)

MfG Lefko

[Robert_G]

Wenn der User dabei die linke Maustaste gerückt hält geht das:
im OnKeyDown des Formulars (KeyPreview des Forms muss auf True gesetzt werden)

Delphi-Quellcode:

  If key = [Virtual key code der Taste] Then
  Begin
    ReleaseCapture;
    SendMessage(DeinPanel.Handle, wm_SysCommand, $F012, 0);
  End;

[taza]

aha; danke erstmal; ich werd's versuchen................. :)

[taza]

:|

Als was muss ich denn "Panelbewegen" vereinbaren und was bedeutet "Boolean" ?

Sorry für meine "Dummheit" :wink:

:|

[Jörn]

var Panelbewegen: bool;

boolean gibt entweder wahr(bzw true) oder unwahr(false) zurück. Sagt dir das jetzt was?

[Lefko]

hier:

Delphi-Quellcode:

//global deklarieren:
var PanMove : boolean;

...

//Tastenabfrage:
procedure TForm1.OnKeyDown(Sender : TObject; ... var Key : DWord);
begin
if Key = {deine Taste (z.B. VK_F1)} then           //KeyPreview des Forms auf true setzen!
  begin
   PanMove := not PanMove;
  end;
end;

...

//Panel bewegen:
procedure TForm1.OnMouseMove(Sender : TObject; ... X, Y : integer);
begin
Panel.Left := X - Panel.width div 2;    //Damit der Cursor auch in 
Panel.Top  := Y - Panel.height div 2;   //der Mitte des Panels ist
end;

(Da könntest du dann noch Abfragen einbauen, damit das Panel nicht ausserhalb der Form landet...)

Viel Spaß damit, hoffe, es ist richtig :)
MfG Lefko.