Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.01.2018, 08:03   #1
D6ist
Пользователь
 
Регистрация: 26.11.2017
Сообщений: 15
По умолчанию Выбор иконки MsgBox в combobox

Пишу программу для создания своих MsgBox. Как сделать так, чтобы иконку можно было выбрать через combobox? С кнопками разобрался, а вот как с иконками - не пойму.
Вот код:
Код:
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    ComboBox2: TComboBox;
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses help;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  messagebox(0, pchar(edit2.Text), pchar(edit1.Text), combobox2.ItemIndex + combobox1.ItemIndex);
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  helpform.ShowModal;
end;

end.
Изображения
Тип файла: png msgbox.png (4.1 Кб, 70 просмотров)

Последний раз редактировалось D6ist; 15.01.2018 в 08:06.
D6ist вне форума Ответить с цитированием
Старый 17.01.2018, 20:54   #2
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Потому что для иконки нужно передавать тип
Код:
Type: UINT
MessageBox
Shouldercannon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выбор таблицы ComboBox-ом jawa250t БД в Delphi 3 26.02.2013 14:54
Иконки в ComboBox buro C# (си шарп) 0 18.11.2012 03:25
проподает фокус ввода с combobox и не отображаются иконки файлов в win XP boshki Помощь студентам 0 06.06.2011 17:52
Выбор из combobox deadneoo БД в Delphi 0 27.04.2010 19:05
Выбор иконки для приложения Lime Общие вопросы Delphi 2 03.11.2009 19:57