unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 = class(tform)
button1: tbutton;
procedure button1click(sender: tobject);
private
public
end;
var
form1: tform1;
implementation
procedure tform1.button1click(sender: tobject) ;
var
amsgdialog: tform;
acheckbox: tcheckbox;
begin
amsgdialog := createmessagedialog('test for checkbox', mtwarning, [mbyes, mbno]) ;
acheckbox := tcheckbox.create(amsgdialog) ;
with amsgdialog do
try
caption := 'dialog title' ;
height := 169; // height del dialogbox
with acheckbox do
begin
parent := amsgdialog;
width := 150;
caption := 'select true / false';
top := 121;
left := 8;
end;
if (showmodal = id_yes) then
begin
if acheckbox.checked then
showmessage('checkbox is true')
else
showmessage('checkbox is false')
end;
finally
free;
end;
end;
end.
建立簡單對話方塊
簡單對話方塊playgame.cpp在搞了大約乙個星期左右，終於看見想要的框了，不過還不太完善，先寫出這個星期來所學到的問題吧！1.首先要定義資源 resource dialog r dlg player name dialog dlg line 2.接下來編寫對話方塊 executeld 用於裝載...
建立 AlertDialog對話方塊
對話方塊是一種顯示於 activity之上的介面元素，是作為 activity的一部分被建立和顯示的，常用的對話方塊種類有 提示對話方塊 alertdialog 進度對話方塊 progressdialog 日期選擇對話方塊datepickerdialog 時間選擇對話方塊 timepickerdia...
對話方塊 訊息對話方塊
我們在使用windows系統的過程中經常會見到訊息對話方塊，提示我們有異常發生或提出詢問等。因為在軟體開發中經常用到訊息對話方塊，所以mfc提供了兩個函式可以直接生成指定風格的訊息對話方塊，而不需要我們在每次使用的時候都要去建立對話方塊資源和生成對話方塊類等。這兩個函式就是cwnd類的成員函式mes...