15-07-2009, 10:35 PM
الصفحات : 1 2
05-01-2019, 02:59 PM
كيف أكتب علبة حوار فها الخيارات
حذف
تغيير
إلغاء
و هم ثلاث أزرار و لكل واحد منهم برنامجه
حذف
تغيير
إلغاء
و هم ثلاث أزرار و لكل واحد منهم برنامجه
05-01-2019, 04:11 PM
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
msgRet: integer;
begin
msgRet := Messagedlg(
'Your confirmation question here...',
mtconfirmation,
[mbyes, mbno, mbcancel],
0);
if msgRet = mryes then
begin
end;
if msgRet = mrcancel then
begin
end;
if msgRet = mrno then
begin
end;
end;
22-08-2020, 04:44 AM
(15-07-2009, 08:21 PM)قديم الشوق كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
الله يعطيك العافيه ومشكور على الدرس الجميل
كيف اضيف خانة للعنوان بالكود
هذا كود الرسالة ابغى اعنونها
إقتباس :with Application do
begin
NormalizeTopMosts;
MessageBox('This should be on top.', 'Look', MB_OK); // [smbOK]
RestoreTopMosts;
end;
الصفحات : 1 2