Form animieren

[flashkid]

Hallo

Ich versuche derzeit mein Form grafisch ein wenig aufzupeppen Dazu habe ich diese Procedure ausprobiert:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var p: Integer;
begin
   for p:=1 to 100 do begin
      form1.Left := Form1.left -5;
      Sleep(1);
   end;
end;

Leider sieht das nicht sehr schön aus und geht auch ein wenig langsam. Ohne das Sleep ist es rasend schnell
Gibt es hierfür nicht schon eine Funktion? Ich kenne den DLLCall "AnimateWindow", weiß aber nicht wie man ihn in Free Pascal umsetzen kann

Gruß, flashkid

[Euklid]

Hallo,

eventuell hilft Dir dieser Link weiter: http://forum.lazarus.freepascal.org/ind ... pic=6394.0
Die meisten Windows-API-Befehle sind über die unit windows recht einfach erreichbar. Bei AnimateWindow bin ich mir nicht so sicher...

Gruß, Euklid

[flashkid]

Diesen Beitrag habe ich auch schon gelesen, nur verstehe ich nicht, was nun noch an diesem Delphi-Code geändert werden muss, damit es funktioniert.
Habe es auch einfach mal mit "AnimateWindow(Form1.handle,1000,0x20001)" versucht, nur leider wird AnimateWindow nicht als Befehl erkannt, obwohl ich unter uses Windows eingetragen habe.

Wie animiert ihr denn eure Forms, oder macht ihr das gar nicht?

[Socke]

Diesen Beitrag habe ich auch schon gelesen, nur verstehe ich nicht, was nun noch an diesem Delphi-Code geändert werden muss, damit es funktioniert.
Habe es auch einfach mal mit "AnimateWindow(Form1.handle,1000,0x20001)" versucht, nur leider wird AnimateWindow nicht als Befehl erkannt, obwohl ich unter uses Windows eingetragen habe.

Versuchs mal mit der jwawinusers.pas. Da ist zumindest eine entsprechende Funktion deklariert.

Wie animiert ihr denn eure Forms, oder macht ihr das gar nicht?

Ich benutze dafür den Benutzer

[theo]

Wie animiert ihr denn eure Forms, oder macht ihr das gar nicht?

Gar nicht. Wozu?

[flashkid]

Danke, nun geht der Befehl schon mal Ich bekomme ihn aber nicht ans Laufen Habe "AnimateWindow(Form1.Handle,1000,AW_Hide)" benutzt.. Die Funktion gibt auch immer 0 zurück, was bedeutet, dass die Funktion fehlgeschlagen ist. Wie komme ich an den genauen Fehler heran? Auf der msdn Seite steht "To get extended error information, call the GetLastError function.", wie funktioniert das in Lazarus?

Ich benutze dafür den Benutzer

"Um das Fenster von links nach rechts sliden zu lassen, klicken Sie bitte auf die Titelleiste und ziehen Sie das Fenster nach rechts"

Gar nicht. Wozu?

Um das Programm grafisch ein wenig schöner zu gestalten? Gerade für Vorführungen ist das gut geeignet.

[Socke]

Auf der msdn Seite steht "To get extended error information, call the GetLastError function.", wie funktioniert das in Lazarus?

Ganz einfach: Du rufst GetLastError() auf. Diese Funktion sollte dann aber wirklich in der unit Windows liegen. Das schöne an Microsoft ist, dass du noch eine weitere Funktion (deren Name mir entfallen ist) aufrufen musst um den Fehlercode in einen brauchbaren String umzusetzen (alternativ kann den Fehlercode auch im Internet suchen).

Ich benutze dafür den Benutzer

"Um das Fenster von links nach rechts sliden zu lassen, klicken Sie bitte auf die Titelleiste und ziehen Sie das Fenster nach rechts"

Gar nicht. Wozu?

Um das Programm grafisch ein wenig schöner zu gestalten? Gerade für Vorführungen ist das gut geeignet.

So in etwa.
Windows XP (und die Nachfolger auch) sind meiner Meinung nach nicht gerade schön. Deshalb benutze ich auch GTK2 unter Linux. Hier ist es wesentlich einfacher das Aussehen der Fenster seinen Wünschen anzupassen (Farbgebung Icons), da es zahllose Icons und Themes schon fertig gibt. Unter Windows gibt es nur einen (nicht wirklich einfachen) Dialog zum Festlegen der Farben (aber nur im Pre-XP-Style).
Wenn ein Programm sein Aussehen dann selbstständig ändert, hebt es sich dadurch immer automatisch von allen ab. Damit es dann noch gut aussieht bedarf es einen Grafiker (der oft nicht in Personalunion mit dem Programmierer ist). Und selbst dann bleibt oft die Benutzerfreundlichkeit durch Widererkennung ähnlicher Elemente auf der Strecke.

Bei welcher Vorführung müsste ich denn das Fenster verschieben?

Edit: Das Ergebnis von GetLastError kannst du entweder mit FormatMessage() in einen String umwandeln oder bei MSDN direkt nachlesen.