Картинка при нажатии на кнопку

@Ivanko1993 · Регистрация: 29.05.2012

Author24 — интернет-сервис помощи студентам

Как-то я смотрел готовые программы и при нажатии в них "справка" выходило не сообщение в диалоговом режиме, а картинка. В коде точно не помню что было, что-то похожее на showmodal. Подскажите что это такое ? =)

@Puporev · 19.11.2012, 08:42

Примерно так?

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;
 
end.

Delphi

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,Jpeg;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('4.jpg');
end;
 
end.

@Electroflower · 19.11.2012, 08:44

Если вас интересует именно картинка в качестве справки, то можете просто вызывать новую форму с соответствующими настройками

@Ivanko1993 · 19.11.2012, 11:08 **[ТС]**

Да да оно самое. Спасибо вам.

@Ivanko1993 · 19.11.2012, 11:39 **[ТС]**

Блин, сделал но все равно ошибка. вот такая.
Во втором изображении я прописал юниты, но и это не помогло

@Ivanko1993 · 19.11.2012, 11:42 **[ТС]**

И еще код кину, мб тут ошибку увидите. Unit1.pas

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ExtDlgs, jpeg, XPMan, ComCtrls,
  Menus;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Image1: TImage;
    XPManifest1: TXPManifest;
    Button18: TButton;
    Button19: TButton;
    MainMenu1: TMainMenu;
    Onep1: TMenuItem;
    Exit1: TMenuItem;
    About1: TMenuItem;
    About2: TMenuItem;
    N1: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure About2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  ch1:real; zn:char;
  kd:integer;
implementation
Uses unit2;
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject); // Если kd = 1 тогда текст стирается и добавляется 1, если kd = 0, добавляется 1 к тому что было.
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'1';
end;
 
procedure TForm1.Button2Click(Sender: TObject); // Если kd = 1 тогда текст стирается и добавляется 2, если kd = 0, добавляется 2 к тому что было.
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.text+'2';
end;
 
 
procedure TForm1.Button3Click(Sender: TObject); // Если kd = 1 тогда текст стирается и добавляется 3, если kd = 0, добавляется 3 к тому что было.
 
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.text+'3';
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
 
If edit1.Text='' then edit1.Text:=edit1.Text else // Если добавляется минус в пустое поле, тогда плюс не будет иметь значения.
ch1:=strToFloat(edit1.text); //Преобразует числовую строку в значение
edit1.text:=''; //edit1.text пуст
zn:='+';    // Параметр zn равне +
end;
 
 
procedure TForm1.Button5Click(Sender: TObject);
 
begin
If edit1.Text='' then edit1.Text:=edit1.Text else  // Если добавляется минус в пустое поле, тогда минус не будет иметь значения.
ch1:=strToFloat(edit1.text);  //Преобразует числовую строку в значение
edit1.text:='';  //edit1.text пуст
zn:='-';   // Параметр zn равен -
end;
 
 
procedure TForm1.Button6Click(Sender: TObject);
begin
If edit1.Text='' then edit1.Text:=edit1.Text else  // Выбов в соотвествие с операцией
  case zn of
  '+':Begin edit1.Text:=floatToStr(ch1+strToFloat (edit1.Text)); kd:=1; end;
  '-':Begin edit1.Text:=floatToStr(ch1-strToFloat (edit1.Text)); kd:=1; end;
  '*':Begin edit1.Text:=floatToStr(ch1*strToFloat (edit1.Text)); kd:=1; end;
  '/': if edit1.text[1]='0' then showmessage ('На ноль делить нельзя!')
  else begin edit1.Text:=floatToStr(ch1/strToFloat (edit1.Text)); kd:=1; end;
  end;
 
 
end;
 
procedure TForm1.Button7Click(Sender: TObject);  // Если kd = 1 тогда текст стирается и добавляется 4, если kd = 0, добавляется 4 к тому что было.
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'4';
end;
 
procedure TForm1.Button9Click(Sender: TObject);  // Если kd = 1 тогда текст стирается и добавляется 5, если kd = 0, добавляется 5 к тому что было.
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'5';
end;
 
procedure TForm1.Button8Click(Sender: TObject); // Если kd = 1 тогда текст стирается и добавляется 6, если kd = 0, добавляется 6 к тому что было.
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'6';
end;
 
procedure TForm1.Button10Click(Sender: TObject); // Если kd = 1 тогда текст стирается и добавляется 7, если kd = 0, добавляется 7 к тому что было.
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'7';
end;
 
procedure TForm1.Button13Click(Sender: TObject); // Если kd = 1 тогда текст стирается и добавляется 8, если kd = 0, добавляется 8 к тому что было.
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'8';
end;
 
procedure TForm1.Button12Click(Sender: TObject); // Если kd = 1 тогда текст стирается и добавляется 9, если kd = 0, добавляется 9 к тому что было.
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'9';
end;
 
procedure TForm1.Button11Click(Sender: TObject);   // Если kd = 1 тогда текст стирается и добавляется 0, если kd = 0, добавляется 0 к тому что было.
begin
if (kd=1) then
Begin
 form1.Edit1.Text:='0';
 kd:=0;
End;
if edit1.text='0' then edit1.Text:='';
edit1.Text:=edit1.Text+'0';
end;
 
procedure TForm1.Button15Click(Sender: TObject);
var
sh: string;
begin
sh:= Edit1.Text; // sh принимает значение Edit1.Text
if sh<>'' then  // если sh не равно 0, тогда удаление
Delete(sh,1,1);  // удаление строки sh, начиная с первого символа по одному
Edit1.Text:=sh;
if edit1.Text='' then edit1.Text:='0';
end;
 
procedure TForm1.Button14Click(Sender: TObject);
begin
If edit1.Text='' then edit1.Text:=edit1.Text else // Если добавляется деления  в пустое поле, тогда минус не будет иметь значения.
ch1:=strToFloat(edit1.text); //Преобразует числовую строку в значение
edit1.text:='';  // edit1.text пустое значение
zn:='/';  // zn принимает значение /
end;
 
procedure TForm1.Button16Click(Sender: TObject);
begin
If edit1.Text='' then edit1.Text:=edit1.Text else // Если добавляется умножения в пустое поле, тогда минус не будет иметь значения.
ch1:=strToFloat(edit1.text); //Преобразует числовую строку в значение
edit1.text:=''; // edit1.text пустое значение
zn:='*'; // zn принимает значение *
end;
procedure TForm1.Button17Click(Sender: TObject);
Var
 i:integer;
 
Begin
if edit1.Text='' then edit1.text:='0,';  // При пустом  edit1.Text добавляет "0,"
For i:=1 to Length(Form1.edit1.text) do     // Проверяет на наличе ","
Begin
IF (Form1.edit1.text[i]=',') then Exit;     // Если находит ничего не делает
 
End;{FOR}
 
Form1.edit1.text:=Form1.edit1.text+',';      //Если не находит, тот добавляет ","
 
End;
 
 
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
Messagedlg('Калькулятор версия 3.3',
mtInformation,[mbok],0);
 
end;
 
procedure TForm1.Button18Click(Sender: TObject);
begin
  Edit1.Text := ''; // Очищает Edit1.Text
  if edit1.Text='' then edit1.Text:='0';
end;
 
procedure TForm1.Button20Click(Sender: TObject);
 
var
sh: string;
begin
sh:= Edit1.Text; 
if sh<>'' then   
Delete(sh,1,1);
Edit1.Text:=sh;
end;
 
procedure TForm1.Button19Click(Sender: TObject);
 
var
st:string;
begin
st:=edit1.Text;  // st принимает значение Edit1.Text
delete(st,length(st),1); // удаление st, по 1 символу начиная конца.
edit1.Text:=st;
if edit1.Text='' then edit1.Text:='0';
end;
 
procedure TForm1.Exit1Click(Sender: TObject);
begin
close;           // Закрыть
end;
 
procedure TForm1.About2Click(Sender: TObject);
 
begin
Form1.hide;
Form2.Show;
end;
 
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
If edit1.text='-0' then Edit1.Text := '0'
end;
 
procedure TForm1.N1Click(Sender: TObject);
begin
Messagedlg('***. ',
mtInformation,[mbok],0);
end;
 
end.

@Puporev · 19.11.2012, 12:21

Ivanko1993, Для каждой формы в меню File->Use Unit кликните на предложенном Юните.

Добавлено через 2 минуты
Должно быть в Юнит 1

Delphi

1
2
3

implementation
 
uses Unit2;

в Юнит 2

Delphi

1
2
3

implementation
 
uses Unit1;

Я кстати во втором забыл кликнуть... Просто он не использовался.

@Вентэл · 19.11.2012, 12:59

File -> New -> Other -> Forms -> About Box

Формочка уже готова для использования ее в качестве "справки" или раздела "о программе" Вам останется только изменить параметры лежащих компонентов на форме.

@Ivanko1993 5 / 3 / 3 Регистрация: 29.05.2012 Сообщений: 328
		1
	Картинка при нажатии на кнопку 19.11.2012, 07:22. Показов 3691. Ответов 7 Метки нет (Все метки) Как-то я смотрел готовые программы и при нажатии в них "справка" выходило не сообщение в диалоговом режиме, а картинка. В коде точно не помню что было, что-то похожее на showmodal. Подскажите что это такое ? =) 0

@Electroflower Shiningemerald 384 / 117 / 22 Регистрация: 05.01.2012 Сообщений: 951
	19.11.2012, 08:44	3
	Если вас интересует именно картинка в качестве справки, то можете просто вызывать новую форму с соответствующими настройками 2

@Ivanko1993 5 / 3 / 3 Регистрация: 29.05.2012 Сообщений: 328
	19.11.2012, 11:08 [ТС]	4
	Да да оно самое. Спасибо вам. 0

@Ivanko1993 5 / 3 / 3 Регистрация: 29.05.2012 Сообщений: 328
	19.11.2012, 11:39 [ТС]	5
	Блин, сделал но все равно ошибка. вот такая. Во втором изображении я прописал юниты, но и это не помогло Миниатюры 0

@Вентэл 4 / 4 / 1 Регистрация: 04.12.2011 Сообщений: 59
	19.11.2012, 12:59	8
	File -> New -> Other -> Forms -> About Box Формочка уже готова для использования ее в качестве "справки" или раздела "о программе" Вам останется только изменить параметры лежащих компонентов на форме. 1

Опции темы