TrackBar auf Button click im separtem Fenster erzeugen?

[lbccaleb]

Hey Community,

hab mal wieder ein kleines Problem, wo ich net so recht weiß wie ich das vollenden soll :(

Naja, ich würde gerne eine TrackBar per WinAPI erzeugen, soweit so gut und erstmal kein Problem!
Nun soll das alles aber in einem neuen Fenster passieren wie es bekannt ist aus der Windows Foto Gallerie (siehe angehängten Screenshot)

Ich habe bereit ein bissel hinbekommen, aber irgendwie ist das noch nicht so wie ich mir das vorstelle, vllt weiß ja der ein oder andere was ich ändern muss damits so funktioniert wie die Version in Windows!

Angehängt hab ich auch mal das kleine Demo Projekt, wie ich mir das ungefähr gedacht hab!

mfg

[edit=Matze]Anhang aktualisiert. MfG, Matze[/edit]

[lbccaleb]

Hat keiner eine Ahnung??

Muss ich die TrackBar vllt auf einem eigenen Fenster erzeugen?? Weiß jemand wie es Windows macht?

Edit:
Und wieso erstellt er die TrackBar nicht da, wo die Maus ist, sondern irgendwo auf der Form?

[lbccaleb]

Weiß denn vllt jemand, wo ich sonne Komponente finde? Vllt kann ich mir von der was absehen?

Komme einfach nicht weiter :(

Edit:
Sorry for Push :roll:

[quendolineDD]

Lucky hat in seinen Tutorials für Programmierung mit der WinApi ein ausführliches Beispiel, mit Quellcode, Beispielprogramm und PDF-Tutorial u.a. die Erstellung einer Trackbar. Musst in der PDF mal auf Seite 99 schauen.
Lucky's Seite. Dort unter Developer > Delphi > Tutorials.

Viel Spaß :)

[lbccaleb]

Erstmal danke für deinen Tipp :-D

Nur weiß ich wie ich die TrackBar erzeuge! Ich weiß nur nicht wie ich Sie erzeuge, so wie es Windows macht auf einem neuen Panel, Fenster ... was auch immer??!! Und ich weiß auch nciht wie ich Sie so erzeuge, das Sie genau da plaziert mit dem Thumb plaziert wird, wo sich auch die Maus befinded!

Außerdem hab ich dann noch ein Problem mit dem schließen des Fensters! Das Fenster (auf dem sich die TB befinded) soll ja genau dann geschlossen werden, wenn es selber den Focus verliert. Ich habe es probiert, das Fenster zu SubClassen und über WM_ACTIVE und WA_INACTIVE(wParam) die Message abzufangen! Nur das klappt leider auch nicht so wie gewollt! Ich verstehe nicht wieso noch nicht mal das funktioniert! Ich währe ja schon weiter wenn ich das Fenster wenigstens so geschlossen bekommen würde wie ich es brauch! :gruebel:


Edit:
Wieso kommt keine Antwort in dem COde??

Delphi-Quellcode:

//var global:
var
  tbpanel, TBwnd: hwnd;
  OldTBPanelProc: Pointer;

function TBPanelWndProc(hWnd: hWnd; uMsg: UINT; wParam: wparam; lParam: lparam): lresult; stdcall;
begin
  Result := 0;
  case uMsg of
//    WM_CREATE: ShowMessage('HALLO');
    WM_ACTIVATE:
      if wparam = WA_INACTIVE then
        showmessage('scd'); //<-- Hier kommt nie was an, aber wieso??
        //PostMessage(hWnd, WM_CLOSE, 0, 0);
  else
    Result := CallWindowProc(OldTBPanelProc, hWnd, uMsg, wParam, lParam);
  end;
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//das panel erzeugen, auf dem sich die TrackBar befinden soll:  
tbpanel := CreateWindowEx(WS_EX_TOPMOST,'STATIC',nil, WS_VISIBLE or WS_CHILD or SS_ETCHEDFRAME,coordx,coordy,40,200,form1.Handle, 1,hInstance,nil);

//Die neue Fensterprozedur zuweisen:
OldTBPanelProc := Pointer(SetWindowLong(tbpanel, GWL_WNDPROC, INTEGER(@TBPanelWndProc)));

end;

Kann mir jemand sagen was ich da falsch mache?? Wie so nichts passiert in den Fensterroutine??

[lbccaleb]

Hey, ich habe es jetzt so einigermaßen hinbekommen :thumb:

Nur ein paar kleine Dinge fehlen noch, hoffe Ihr könnt mir vllt wenigstens bei den helfen, damit ich hier nicht schon wieder an die Decke springen muss :lol:

Als allererstes:
habe den neuen Stand angehangen...


Nun zu meinen Fragen:

1. Wie kann ich es nun noch machen, dass automatisch wenn ich auf den Button klicke und die TrackBar erscheint, ich trotzdem den TrackBar Slider verschieben kann, ohne neue mit der Linken Maustaste, auf den Slider zu klicken!

2. Wie kann ich das Fenster schließen, wenn die linke Maustaste losgelassen wird? Alle Versuche über die WM_LBUTTONUP Message sind Fehlgeschlagen! Keine Ahnung was ich da falsch gemacht hab...

3. Wie kann ich nun noch die Position der TrackBar an die aufrufende Procedure senden?

Vllt könnt Ihr mir ja bei den Fragen helfen!
Danke schon mal :)

Edit:
Anhang entfernt, weiter unten neu Angehangen...

[Nachteule]

zu 1.
habs nicht getestet aber vllt. hilft trackbar.setfocus nach der Anzeige
zu 2.
schau dir mal das Ereignis onMouseUp an...

[lbccaleb]

Ist nonVCL...

Also höchstens SetFocus(); und Halt wie oben geschrieben über die Windows Message! Klappt aber beides net :(

[lbccaleb]

OK, habe es nun so weit...
Musste die TrackBar noch SubClassen und dort die WM_LBUTTONUP Message abfangen! Das funktioniert nun ganz gut!
Den Slider hab ich nun auch so das er automatisch mit der Maus mit geht, wenn man auf dem Button clickt!

Jetzt Fehlt nur noch der Punkt mit der Rückgabe des Wertes der TrackBar! Hat da vllt noch jemand ne Idee?

Weiß net so Recht wie ich das aus der Fenster Prozedure wieder zurück in die aufrufende Funktion schicken soll... :gruebel:

[Luckie]

Zitat:

Zitat von lbccaleb

Ist nonVCL...

Hm, für mich bedeutet das, dass man auf die VCL verzcihtet, was du aber nicht tust.