AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Formular, aber was bedeutet das ganze???
Thema durchsuchen
Ansicht
Themen-Optionen

Formular, aber was bedeutet das ganze???

Ein Thema von RedDust · begonnen am 30. Mai 2005 · letzter Beitrag vom 30. Mai 2005
Antwort Antwort
RedDust

Registriert seit: 26. Okt 2004
Ort: Könnern
96 Beiträge
 
Delphi 2005 Personal
 
#1

Formular, aber was bedeutet das ganze???

  Alt 30. Mai 2005, 10:11
Ich habe jetzt angefangen mit c++ zu programmieren und hätt hier nur mal eine Frage. Kann mir jemand diesen Code erklären?? Hab' schon etwas herausgefunden aber die Kernstellen fehlen mir noch.

Hier erstmal der Code:

Code:
#include <windows.h>
LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);
HINSTANCE hInstGlobal;
int APIENTRY WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)
{ hInstGlobal=hInstance;
  WNDCLASS WndClass;
  WndClass.style=0; WndClass.cbClsExtra=0; WndClass.cbWndExtra=0;
  WndClass.lpfnWndProc=WndProc; WndClass.hInstance=hInstance;
  WndClass.hbrBackground=(HBRUSH)(COLOR_WINDOW); // Hintergrundfarbe
  WndClass.hCursor=LoadCursor(NULL,IDC_ARROW);  // Cursor
  WndClass.hIcon=LoadIcon(NULL,IDI_APPLICATION); // Icon
  WndClass.lpszMenuName=0; WndClass.lpszClassName="WinProg";
  RegisterClass(&WndClass); HWND hWindow;
  hWindow=CreateWindow("WinProg"
  ,"Fenstertitel"            // Fenstertitel
  ,WS_OVERLAPPEDWINDOW
  ,100,0,400,300              // Left,Top,Width,Height
  ,NULL,NULL,hInstance,NULL);
  ShowWindow(hWindow, nCmdShow); UpdateWindow(hWindow);
  MSG Message;
  while (GetMessage(&Message,NULL,0,0)) { DispatchMessage(&Message); }
  return (Message.wParam);
}
LRESULT CALLBACK WndProc(HWND hWnd,UINT uiMessage,WPARAM wParam,LPARAM lParam)
{ switch(uiMessage)
  { case WM_CREATE: HWND hButton, hButtonExit;
      hButton= CreateWindow("BUTTON","OK",WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON
         ,70,220,100,30     // Left,Top,Width,Height
         ,hWnd,(HMENU) 1,hInstGlobal,NULL);
      hButtonExit= CreateWindow("BUTTON","Exit",WS_CHILD|WS_VISIBLE|BS_PUSHBUTTON
         ,220,220,100,30     // Left,Top,Width,Height
         ,hWnd,(HMENU) 2,hInstGlobal,NULL);
    case WM_COMMAND:
      if (HIWORD(wParam)==BN_CLICKED)
      { if (LOWORD(wParam)==1)       // OK-Button
        { HDC hdc; char* str="Hello world!";
          hdc=GetDC(GetParent((HWND)lParam));
          SetBkColor(hdc,0xc0c0c0);SetTextColor(hdc,0xFF0000);
          TextOut(hdc,150,110,str,lstrlen(str));
        }     
        if (LOWORD(wParam)==2)       // Exit-Button
        { SendMessage(GetParent((HWND)lParam),WM_DESTROY,0,0);
        }
      }
      return 0;    
    case WM_DESTROY: PostQuitMessage(0); return 0;
    default: return DefWindowProc(hWnd,uiMessage,wParam,lParam);
  }
}
Das was nach der Compilierung rauskommt hab' ich euch mal angehängt.
Angehängte Dateien
Dateityp: exe form_967.exe (47,0 KB, 11x aufgerufen)
Mario Franze
  Mit Zitat antworten Zitat
Benutzerbild von RavenIV
RavenIV

Registriert seit: 12. Jan 2005
Ort: Waldshut-Tiengen
2.875 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: Formular, aber was bedeutet das ganze???

  Alt 30. Mai 2005, 10:16
nur mal so am Rande erwähnt:
dies ist ein DELPHI-Forum.
ob du hier Hilfe zu C++ erhalten wirst, ist fraglich...

gruessle
Klaus E.
Linux - das längste Text-Adventure aller Zeiten...
Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#3

Re: Formular, aber was bedeutet das ganze???

  Alt 30. Mai 2005, 10:20
Generell gilt natürlich die Aussage von RavenIV
Zitat von RedDust:
Kann mir jemand diesen Code erklären?? Hab' schon etwas herausgefunden aber die Kernstellen fehlen mir noch.
Ansonsten wäre es schön zu wissen, was Du als Kernstellen ansiehst. Den ganzen Kram wird kaum einer dokumentieren wollen

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von MagicAndre1981
MagicAndre1981

Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Formular, aber was bedeutet das ganze???

  Alt 30. Mai 2005, 10:21
Zitat von RedDust:
Ich habe jetzt angefangen mit c++ zu programmieren und hätt hier nur mal eine Frage. Kann mir jemand diesen Code erklären?? Hab' schon etwas herausgefunden aber die Kernstellen fehlen mir noch.
Dann schau dir mal Luckies nonVCL-Tuts an. Die sind zwar in Delphisynatx verfasst, aber das ist egal.

Die Kernpunkte sind gleich. Bei speziellen C/C++ - Fragen musst du in einem Buch nachlesen.

André
André
  Mit Zitat antworten Zitat
Robert Marquardt
(Gast)

n/a Beiträge
 
#5

Re: Formular, aber was bedeutet das ganze???

  Alt 30. Mai 2005, 10:36
Das ist faktisch C und nicht C++. Nur die mitten im Code deklarierten Variablen sind C++.
Das ist ausserdem nacktes Win32 API zu Fenstern. So funktioniert es wenn man keine VCL (Delphi) oder MFC (MS VC++) hat.

WinMain() ist die Funktion die bei einem Windowsprogramm automatisch beim Programmstart aufgerufen wird.
Zuerst registriert man sich seine eigene Fensterklasse, die mit Hintergrundfarbe, Cursor und Icon versehen ist.
Ab dann kann man sich Instanzen dieser Fensterklasse erzeugen. Das ist was CreateWindow() macht. Es erzeugt das Hauptfenster der Applikation.
Danach wird das Fenster angezeigt und einmal ein Update des Fensters gemacht, wobei auch die erzeugten Controls ein Update erfahren..
Es folgt die Messagepumpe fuer das Programm. Also Message abholen und verteilen. Das laeuft bis durch ein WM_QUIT GetMessage() False zurueckliefert.

Bei Delphi ist dieser Code im .dpr File vergraben. Fort wird die Mainform erzeugt und die Messagepumpe in Application.Run aufgerufen.
Eine Delphi Form ist nun nicht anderes als eine Delphi-Klasse, die sich ein Windows-Fenster als Anzeigesklaven haelt.

WndProc() ist die Empfaengerfunktion des Fensters zum Verarbeiten der Messages.
DispatchMessage() verteilt und WndProc() empfaengt.
Kommt ein WM_CREATE, so werden Controls erzeugt. Controls wie z. B. Buttons sind selbst Fenster einer von Windows vordefinierten Fensterklasse.
Es werden zwei Buttons "OK" und "Exit" erzeugt. Dabei sind die Fenster Kindfenster des Hauptfensters.
WM_COMMAND werden von den Button-Kindfenster an ihren Parent geschickt, wenn man sie klickt.
Der OK-Button pinselt nun den Text "Hello world!" aufs Hauptfenster. Ich glaube blauer Text auf grauem Hintergrund.
Der Exit-Button postet ein WM_DESTROY and den Parent des "Exit"-Buttons (sprich das Hauptfenster).
Als Reaktion auf WM_DESTROY wird ein WM_QIUIT ausgeloest, das wiederum GetMessage() dazu bringt die Messagepumpe zu beenden.
Alle anderen Messages werden fon der von Windows zur Verfuegeung gestellten Default-Funktion behandelt.
  Mit Zitat antworten Zitat
Antwort Antwort


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 11:30 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