콘솔 창에 양식 모달을 만드는 방법

Question

콘솔 응용 프로그램 내부 - GetOpenFileName()과 Handle := FindWindow(Nil, Pchar(ConsoleTitle))은 콘솔 창에 대한 OpenFile 대화 상자를 보여줍니다. 자신의 양식을 만들고 표시 할 수 있습니까?은 (는) 콘솔 창에 모달입니까?

Answer 1

콘솔 창을 양식의 창 소유자로 설정하고 양식을 표시 할 때 설정을 해제하십시오. 다음과 같은 것 :

program Project1; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils, 
    windows, 
    forms, 
    Unit1 in 'Unit1.pas' {Form1}; 

const 
    ConsoleClass = 'ConsoleWindowClass'; 

var 
    console: HWND; 
    len: DWORD; 
    title: array [0 .. MAX_PATH] of Char; 

begin 
    try 
    len := GetConsoleTitle(title, SizeOf(title)); 
    Win32Check(Bool(len)); 
    console := FindWindow(ConsoleClass, title); 
    Win32Check(Bool(console)); 
    Form1 := TForm1.Create(nil); 
    try 
     EnableWindow(console, False); 
     try 
     Form1.HandleNeeded; 
     SetWindowLongPtr(Form1.Handle, GWLP_HWNDPARENT, console); 
     Form1.ShowModal; 
     finally 
     EnableWindow(console, True); 
     end; 
    finally 
     Form1.Free; 
    end; 
    except 
    on E:Exception do 
     Writeln(E.Classname, ': ', E.Message); 
    end; 
end.