AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi PropertySheet blinkt nur kurz auf

PropertySheet blinkt nur kurz auf

Ein Thema von Neutral General · begonnen am 4. Sep 2008 · letzter Beitrag vom 5. Sep 2008
Antwort Antwort
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

PropertySheet blinkt nur kurz auf

  Alt 4. Sep 2008, 11:26
Hi,

Ich versuche gerade so einen PropertySheet Dialog zu erstellen. Das ganze ist im Moment zu Testzwecken nur so dahin geklatscht:

Delphi-Quellcode:
function PropSheetProc(Wnd: HWnd; Msg: Integer; WParam: WParam; LParam: LParam): Boolean; stdcall;
begin
  Result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var psp: TPropSheetpage;
    ps: TPropSheetHeader;
    page: Pointer;
begin
  ZeroMemory(@psp,0);
  psp.dwSize := SizeOf(TPropSheetpage);
  psp.hInstance := hInstance;
  psp.dwFlags := PSP_DEFAULT or PSP_USEHEADERTITLE;
  psp.pfnDlgProc := @PropSheetProc;
  psp.pszHeaderTitle := 'Test';
  page := CreatePropertySheetPage(psp);
  if page = nil then
    ShowMessage(SysErrorMessage(GetLastError));

  ZeroMemory(@ps,0);
  ps.dwSize := SizeOf(TPropSheetHeader);
  ps.nStartPage := 0;
  ps.nPages := 1;
  ps.dwFlags := PSH_WIZARD97 or PSH_HEADER;
  ps.hwndParent := Handle;
  ps.hInstance := hInstance;
  ps.pszCaption := 'Test';
  ps.phpage := @page;

  if PropertySheet(ps) = -1 then
    ShowMessage(SysErrorMessage(GetLastError));
end;
Der Dialog blinkt nur kurz auf und ist dann auch schon wieder verschwunden.
Scheinbar wird die PropSheetProc niemals aufgerufen, denn wenn ich einen Haltepunkt reinsetze hält er nie an und wenn ich psp.dfnDlgProc = nil setze, verhält sich alles genauso.

Was mache ich denn falsch?
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

Re: PropertySheet blinkt nur kurz auf

  Alt 5. Sep 2008, 08:11
Das Problem war die veraltete Definition von PSH_WIZARD97 und man muss den Dialog als Resource einbinden. In MSDN steht zwar, dass ein Dialogtemplate von Windows (?) geladen wird, wenn man nichts angibt, aber die blinkt scheinbar nur kurz auf und verschwindet dann....

Richtige Definition von PSH_WIZARD97 (ab IE5)

PSH_WIZARD97 = $01000000;
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz