Files |  Tutorials |  Articles |  Links |  Home |  Team |  Forum |  Wiki |  Impressum

Aktuelle Zeit: Fr Jul 11, 2025 06:39

Foren-Übersicht » Programmierung » Allgemein
Unbeantwortete Themen | Aktive Themen



Ein neues Thema erstellen Auf das Thema antworten  [ 2 Beiträge ] 
Autor Nachricht
BeitragVerfasst: Mo Aug 31, 2009 16:47 
Offline
DGL Member
Benutzeravatar

Registriert: So Jan 07, 2007 21:26
Beiträge: 130
Wohnort: mal hier mal da mal irgendwo
Hi,
ich hab nen prob mit der fenster erstellung mit der windows api, unter delphi klappts ohne probleme,
bei lazarus kommt nur das konsolenfenster... weiß jmd woran das liegen kann? hier mal nen quell text:

Code:
  1. uses
  2.   Windows, Messages;
  3.  
  4. const
  5.   AppName = 'TimeJump';
  6. var
  7.   Handle: HWND;
  8.  
  9. function WndProc(h_wnd:HWND; umsg:UINT; wp:WPARAM; lp:LPARAM):integer;stdcall;
  10. begin
  11.    case umsg of
  12.      WM_DESTROY: begin
  13.                    PostQuitMessage(0);
  14.                    Result:=0;
  15.                  end;
  16.      else
  17.        Result:=DefWindowProc(h_Wnd, umsg, wP, lP);
  18.    end;
  19. end;
  20.  
  21. function WinMain(Instance, PrevInst: HINST; CmdLine:string; CmdShow: integer):integer;
  22. var msg:tagMSG;
  23.     wc:TWndClassEx;
  24. begin
  25.   with wc do
  26.   begin
  27.     cbSize:=SizeOf(TWndClassEx);
  28.     style:=CS_HREDRAW or CS_VREDRAW;
  29.     lpfnWndProc:=@WndProc;
  30.     cbClsExtra:=0;
  31.     cbWndExtra:=0;
  32.     hInstance:=Instance;
  33.     hCursor:=LoadCursor(0,IDC_ARROW);
  34.     hIcon:=LoadIcon(0,IDI_APPLICATION);
  35.     hbrBackground:=GetStockObject(WHITE_BRUSH);
  36.     lpszClassName:=AppName;
  37.     lpszMenuName:=AppName;
  38.     hIconSm:=LoadIcon(0,IDI_APPLICATION);
  39.   end;
  40.  
  41.   if RegisterClassEx(wc)=0 then
  42.   begin
  43.     Result:=0;
  44.     Exit;
  45.   end;
  46.  
  47.   Handle := CreateWindowEx(WS_EX_OVERLAPPEDWINDOW,
  48.                            AppName,
  49.                            'Title caption',
  50.                            WS_OVERLAPPEDWINDOW,
  51.                            0,
  52.                            0,
  53.                            CW_USEDEFAULT,
  54.                            CW_USEDEFAULT,
  55.                            0,
  56.                            0,
  57.                            Instance,
  58.                            nil);
  59.   if (Handle = INVALID_HANDLE_VALUE) then
  60.   begin
  61.     Result:=0;
  62.     Exit;
  63.   end;
  64.  
  65.   ShowWindow(Handle, CmdShow);
  66.   UpdateWindow(Handle);
  67.  
  68.   while (GetMessage(msg,Low(Cardinal),Low(Cardinal),0)) do
  69.   begin
  70.     TranslateMessage(msg);
  71.     DispatchMessage(msg)
  72.   end;
  73.   Result:= msg.WParam;
  74. end;
  75.  
  76. begin
  77.   WinMain(HInstance,HPrevInst,CmdLine,CmdShow);
  78. end.


hoffe ihr könnt mir helfen ... :/

cuz bubble

_________________
Wenn Worte nichts als Worte sind,
dann müssen's Steine sein!
Solange - bis sie pleite sind - schmeißt Fensterscheiben ein!

- Fidl Kunterbunt -


Zuletzt geändert von thebubble am Mo Aug 31, 2009 23:45, insgesamt 1-mal geändert.

Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags:
BeitragVerfasst: Mo Aug 31, 2009 22:58 
Offline
DGL Member
Benutzeravatar

Registriert: So Jan 07, 2007 21:26
Beiträge: 130
Wohnort: mal hier mal da mal irgendwo
okay ... ich weiß zwar nich warum es ein fehler ist, aber es scheint einer zu sein ...

sobald ich in der lazarus IDE keinen debugger eingestellt hab geht der quellcode ...

kann mir jmd sagen warum dass so is? ich habe bisher den GNU debugger (gdb) verwendet ...

cuz bubble

_________________
Wenn Worte nichts als Worte sind,
dann müssen's Steine sein!
Solange - bis sie pleite sind - schmeißt Fensterscheiben ein!

- Fidl Kunterbunt -


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 2 Beiträge ] 
Foren-Übersicht » Programmierung » Allgemein


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 Gäste


Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.

Suche nach:
Gehe zu:  
  Powered by phpBB® Forum Software © phpBB Group
Deutsche Übersetzung durch phpBB.de
[ Time : 0.007s | 16 Queries | GZIP : On ]