Loginform soll geschlossen werden bevor MainForm erscheint

[MuTzE]

Ich hab mich mal kurz hingesetzt. Ich hoffe das reicht so.

Man könnte ja zusätzlich noch den Taskbareintrag vom Passwortformular entfernen.

[EWeiss]

Weiß jetzt nicht ob ich das richtig verstanden habe
aber es gäbe eine möglichkeit jegliches flackern zu unterbinden
ohne viel aufwand.

Versuchs mal mit der Sendmessage .. SendMessage( hwnd, WM_SETREDRAW, False, 0);
Dies verhinder das neuzeichnen einer Form oder eines Control.

Den status wieder auf standard setzen geht so.

Delphi-Quellcode:

procedure(Redraw);
var
ClientRect : TRect;

Begin
   SendMessage(hwnd , WM_SETREDRAW, True, 0);
   GetClientRect(hwnd ,ClientRect);
   RedrawWindow(hwnd, ClientRect, 0, RDW_ERASE Or RDW_INVALIDATE Or RDW_ALLCHILDREN Or RDW_UPDATENOW);
End

Gruß

[MuTzE]

Klappt leider nicht!

Und es müsste so heißen:

SendMessage(hWnd, WM_SETREDRAW, 0, 0);

[Mackhack]

Eigentlich waere meine liebste Loesund diese dass das MainForm das Mainform ist, die auch gestartet wird. Von da aus kommt automatisch die Login Form zum einloggen, oder wenn man auf Cancel klickt der Login Form dass das Programm beendet wird.

Nach erfolgreichem Login soll der Login Screen weg am liebsten .Close und nur noch die MainForm da sein!

[EWeiss]

Zitat:

Zitat von MuTzE

Klappt leider nicht!

Und es müsste so heißen:

SendMessage(hWnd, WM_SETREDRAW, 0, 0);

Weiß nicht wie du auf 0 kommst.
Das sind boolische werte.
False verhindert das zeichnen, True aktiviert es wieder.

gruß

[Muetze1]

Zitat:

Zitat von MuTzE

Klappt leider nicht!

Und es müsste so heißen:

SendMessage(hWnd, WM_SETREDRAW, 0, 0);

Hä? Hat er doch geschrieben - lies seinen Beitrag nochmal bitte!

Ansonsten mal als mögliche Lösung für euer Problem die MainForm nicht aufflackern zu lassen:

Delphi-Quellcode:

Application.ShowMainform := False;

Bringt das vielleicht Abhilfe, wenn man es vor dem Mainform anzeigen setzt?

[MuTzE]

@ Muetze1

Wo ist dein Problem?

Er hat es so geschrieben - SendMessage( hwnd, WM_SETREDRAW, False, 0);
Ich habs so geschrieben - SendMessage( hwnd, WM_SETREDRAW, 0, 0);

Und wenn du dir mein Projekt angeschaut hättest, dann hättest gesehn, dass ich da "Application.ShowMainForm = False" genutzt habe, somit ist dein Beitrag nutzlos! :evil:



@ EWeiss

Der Compiler meckert bei mir, wenn ich Boolsche Werte nehme, da muss Integer rein.

func Windows.SendMessage(hWnd: HWND; Msg: Cardinal; wParam: Integer; lParam: Integer): Integer

[EWeiss]

Zitat:

Und wenn du dir mein Projekt angeschaut hättest, dann hättest gesehn, dass ich da "Application.ShowMainForm = False" genutzt habe, somit ist dein Beitrag nutzlos! :evil:

Dachte immer hier ist Hilfe erwünscht?

Sorry habe mich da im Namen vertan

Zitat:

@ EWeiss
Der Compiler meckert bei mir, wenn ich Boolsche Werte nehme, da muss Integer rein.

Bei mir ist ein Boolischer wert immer schon Integer gewesen.
Entweder 0 oder -1

Ok hat sich erledigt.

Gruß

EDIT: Mag an den Compiler liegen wie du sagst. In VB ist das wurscht der compiler weiß das Bool=Integer ist.

[MuTzE]

Zitat:

Zitat von EWeiss

Zitat:

Und wenn du dir mein Projekt angeschaut hättest, dann hättest gesehn, dass ich da "Application.ShowMainForm = False" genutzt habe, somit ist dein Beitrag nutzlos! :evil:

Dachte immer hier ist Hilfe erwünscht?

Ist sie ja auch, aber er putzt mich hier runter und dann trägt er etwas bei, was ich schon vorher gepostet hatte, auch wenns nich offensichtlich war.

Es wäre ab und zu mal angebracht nicht nur zu lesen, sondern auch mal Anhänge zu laden und zu testen.
Ich bin der Meinung, dass mein Projekt so funktioniert wie er es haben will.

Zitat:

Zitat von EWeiss

EDIT: Mag an den Compiler liegen wie du sagst. In VB ist das wurscht der compiler weiß das Bool=Integer ist.

:wink:

[EWeiss]

Zitat:

Zitat von MuTzE

Zitat:

Zitat von EWeiss

Zitat:

Und wenn du dir mein Projekt angeschaut hättest, dann hättest gesehn, dass ich da "Application.ShowMainForm = False" genutzt habe, somit ist dein Beitrag nutzlos! :evil:

Dachte immer hier ist Hilfe erwünscht?

Ist sie ja auch, aber er putzt mich hier runter und dann trägt er etwas bei, was ich schon vorher gepostet hatte, auch wenns nich offensichtlich war.

Zitat:

Zitat von EWeiss

EDIT: Mag an den Compiler liegen wie du sagst. In VB ist das wurscht der compiler weiß das Bool=Integer ist.

:wink:

Jo streit ist unnötig. :-D
Ein versuch war es allemal wert.
Ich benutze das für List oder Treeviews damit beim
einladen langer Playlisten die Controlls nicht flackern.
Funktioniert super!

Wenn mir nochwas einfällt meld ich mich wieder.

Gruß