Grafisches Form

[RedDust]

Hi @ all,

hab' ein kleines Problem, will mein komplettes Programm optisch verschönern ("alte" Titelleiste geg und eine neue her). Nun hab' ich schon das netz durchsucht und habe entweder nur kostenpflichtige Bilder gefunden oder die Designs waren, ich sag mal, zu lasch. Kennt ihr nicht eine Seite bei der man soetwas finden kann???

P.S. wie kann ich eine Fensterleiste ohne Titel verschieben?

[Rastaman]

machst einfach bei dem Bild ein OnMousedown Ereignis und schreibst

Delphi-Quellcode:

ReleaseCapture;
Form1.Perform(WM_SYSCOMMAND, $f012, 0);

dann kannst du die form am bild herum ziehen.

[PierreB]

Hier findest du alles um deine Programme zu verschönern: Torry's Delphi Page

[RedDust]

Danke, mal noch 'ne ganz bescheidene Frage, woher bekommt ihr die ganzen Komandos??? Jetzt sagt aber bitte nicht vom MS SDK. Das is in engisch. :oops:

[Rastaman]

Code Library :)
Such dir einfach mal n Prog wo du schnell drauf zugreifen kannst wie Easy Helper von www.delphi-source.de
So Long

[Luckie]

Zitat:

Zitat von RedDust

Das is in engisch. :oops:

Ich habe mal gehört, dass es tatsächlich Personen hie rim Forum gibt, die des Englsichen mächtig sind. ;)

Nein im Ernst: Als Programmierer sollte man schon englisch können und wenn es nur fachspezifisches Englisch ist. Den Grund hast du ja selber schon erkannt, die meisten Dokumentationen sind eben auf englisch, weil das eben in unseren Kreisen weit verbreitet ist. Ich rate dir deshalb, lerne Englisch. Als Programmierer kannst du davon nur profitieren. Ich kenne sogar jemanden, der es nie richtig in der Schule gelernt hat, aber ohne Probleme mit dem PSDK zurecht kommt.

[Jarmen_Kell]

Ui gut zu wissen^^
Ich habe bisher immer

Delphi-Quellcode:

Var
HeaderMouseDPos:TPoint;

procedure Tmainform.PnlTopMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  HeaderMouseDPos.X:=x;
  HeaderMouseDPos.Y:=y;
end;

procedure Tmainform.PnlTopMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If SSLeft in Shift
    then
      begin
        mainform.Left:=mainform.Left-(HeaderMouseDPos.X-X);
        mainform.Top:=mainform.Top-(HeaderMouseDPos.Y-Y);
      end;
end;

o.ä. benutzt. Damit komm ich auch prima klar, auch wenn's komplizierter ist :)

PS.:Die Torry-Sachen erscheinen mir irgendwie nicht sonerlich toll...

[RedDust]

Glaub' ich muss mal echt ein Delphikurs mitmachen. :wall: Hatt es zwar 2 jahre lang aber von Windowskomandos hab' ich hier zum 1. mal was gehört. Dacht immer Windows versteht nie was ich sage. :lol:

@Luckie

Stimmt schon was du sagst, aber wenn du Delphi in einer Berufsschule lernst, kann das nix werden. Ich hab' nämlich noch vor einem Jahr (und auch noch heute) mit listen programmiert. Vor 2 Wochen hab' ich hier estmal mitbekommen das dies veraltet ist. :pale: