DGL • Thema anzeigen - [SOLVED] Lazarus - Fenster per Windows API erstellen

[SOLVED] Lazarus - Fenster per Windows API erstellen

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

thebubble

Betreff des Beitrags: [SOLVED] Lazarus - Fenster per Windows API erstellen

Verfasst: Mo Aug 31, 2009 16:47

DGL Member

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:

uses
  Windows, Messages;
 
const
  AppName = 'TimeJump';
var
  Handle: HWND;
 
function WndProc(h_wnd:HWND; umsg:UINT; wp:WPARAM; lp:LPARAM):integer;stdcall;
begin
   case umsg of
     WM_DESTROY: begin
                   PostQuitMessage(0);
                   Result:=0;
                 end;
     else
       Result:=DefWindowProc(h_Wnd, umsg, wP, lP);
   end;
end;
 
function WinMain(Instance, PrevInst: HINST; CmdLine:string; CmdShow: integer):integer;
var msg:tagMSG;
    wc:TWndClassEx;
begin
  with wc do
  begin
    cbSize:=SizeOf(TWndClassEx);
    style:=CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc:=@WndProc;
    cbClsExtra:=0;
    cbWndExtra:=0;
    hInstance:=Instance;
    hCursor:=LoadCursor(0,IDC_ARROW);
    hIcon:=LoadIcon(0,IDI_APPLICATION);
    hbrBackground:=GetStockObject(WHITE_BRUSH);
    lpszClassName:=AppName;
    lpszMenuName:=AppName;
    hIconSm:=LoadIcon(0,IDI_APPLICATION);
  end;
 
  if RegisterClassEx(wc)=0 then
  begin
    Result:=0;
    Exit;
  end;
 
  Handle := CreateWindowEx(WS_EX_OVERLAPPEDWINDOW,
                           AppName,
                           'Title caption',
                           WS_OVERLAPPEDWINDOW,
                           0,
                           0,
                           CW_USEDEFAULT,
                           CW_USEDEFAULT,
                           0,
                           0,
                           Instance,
                           nil);
  if (Handle = INVALID_HANDLE_VALUE) then
  begin
    Result:=0;
    Exit;
  end;
 
  ShowWindow(Handle, CmdShow);
  UpdateWindow(Handle);
 
  while (GetMessage(msg,Low(Cardinal),Low(Cardinal),0)) do
  begin
    TranslateMessage(msg);
    DispatchMessage(msg)
  end;
  Result:= msg.WParam;
end;
 
begin
  WinMain(HInstance,HPrevInst,CmdLine,CmdShow);
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

thebubble

Betreff des Beitrags:

Verfasst: Mo Aug 31, 2009 22:58

DGL Member

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

Seite 1 von 1

[ 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.