Label OnMouseDown udn OnClick Probleme

[delphinia]

Habe ein Label mittels OnMouseDown zum verschiebend er Form mit der Funktion

Delphi-Quellcode:

  ReleaseCapture;
  SendMessage(form_1.Handle, WM_SYSCOMMAND, $F012, 0);

Nun möchte ich aber das bei einem OnClick ein Fesnter eienr neuen Form aufgeht. Nur solange die OnMouseDown aktiv ist funktioniert die OnClick nicht! Sobald ich die rausnehme geht OnCLick.

Was kann ich machen um dennoch beides zu "betreiben"?


Danke Euch

[waseo]

Hi!

Interessantes Problem :). Hier entsteht aber ein Wunschkonflikt: Einerseits willst Du, daß sich beim Drücken der Maustaste das Label die Mausbewegung freigibt übernimmt (ReleaseCapture), andererseits soll aber OnClick funktionieren, obwohl das Label gar keine Maussteuerung mehr hat. Das ist wie Fliegen wollen ohne abzuheben :). Doppelklick funktioniert aber noch, probier's einfach damit.

[delphinia]

Nein auch OnDblClick geht nicht! Aus dem selbigen Problem!

[marabu]

Hallo Doreen,

vielleicht ist dir geholfen, wenn du die Alt-Taste hinzu nimmst:

Delphi-Quellcode:

const
  SC_DRAGMOVE = $F012;

procedure TDemoForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssAlt in Shift then
  begin
    ReleaseCapture;
    Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  end;
end;

Grüße vom marabu

Edit: Perform() statt PostMessage()

[Matt83]

Warum machst du den OnClick-Code nicht einfach in das OnMouseUp. Und überprüfst davor, ob sich die Maus um ein paar Pixel bewegt hat. Wenn nicht, wäre das für mich ein Click ;-)

[marabu]

Hallo Matt83,

herzlich willkommen in der Delphi-PRAXiS.

Wenn du im Ereignis OnMouseDown() der Form ReleaseCapture() aufrufst, wird es sobald kein OnMouseUp() mehr geben. Das bedeutet, dass du das Dragging der Form irgendwie anders - sprich selbst - programmieren musst. Falls du funktionierenden Code dazu hast, könntest du ihn hier einstellen.

Freundliche Grüße vom marabu

[Matt83]

Hi, danke. Mein Minus Erster Eintrag nach 6 Monaten :)

Das ReleaseCapture hab gerade komplett übersehen :) Dann schlag ich einfach mal folgendes vor.

Edit: Wenn du so machst, funktioniert aber acuh OnClick wieder ;-) Daher kannst du dann MouseUp weglassen...

Delphi-Quellcode:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MPressed := True;
end;

procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If MPressed then
  Begin
    MPressed := False;
    ShowMessage('hi');
  end;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If MPressed then
  Begin
    MPressed := False;
    ReleaseCapture;
    SendMessage(form1.Handle, WM_SYSCOMMAND, $F012, 0);
  End;
end;

[delphinia]

danke werd ich gleich einmal testen!