Hier mal ein Anfang, den Rest überlasse ich Deiner Experimentierfreudigkeit
Erstelle ein Form mit einem Panel und einem Button (ausserhalb des Panels).
In und um den Button OnClick Handler kommt folgender Code:
Delphi-Quellcode:
function GetConsoleWindow: HWND; stdcall; external kernel32 name 'GetConsoleWindow';
function SetConsoleDisplayMode(hConsoleOutput: HWND; dwFlags: DWORD; lpNewScreenBufferDimensions: PCOORD): BOOL; stdcall; external kernel32 name 'SetConsoleDisplayMode';
procedure TForm1.Button1Click(Sender: TObject);
begin
if AllocConsole then
begin
Windows.SetParent(GetConsoleWindow, Panel1.Handle);
ShowWindow(GetConsoleWindow, SW_MAXIMIZE);
SetWindowText(GetConsoleWindow, 'Mein Console Window');
Button1.SetFocus;
end;
end;
...
...