Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #31  
Старый 25.02.2015, 23:04
Аватар для roland196
roland196 roland196 вне форума
Прохожий
 
Регистрация: 24.02.2015
Адрес: Литва
Сообщения: 22
Версия Delphi: Turbo Delphi 10
Репутация: 10
По умолчанию

ваш исходник где вчера дали работает
а я сделал идентичный по заполнению обеех форм и шиш мне

в чем секрет без того што у меня мозгов не хватает? )
__________________
не переставай удивляться обычному
Ответить с цитированием
  #32  
Старый 25.02.2015, 23:06
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Вот и покажите те куски кода, где у вас это происходит.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #33  
Старый 25.02.2015, 23:10
Аватар для roland196
roland196 roland196 вне форума
Прохожий
 
Регистрация: 24.02.2015
Адрес: Литва
Сообщения: 22
Версия Delphi: Turbo Delphi 10
Репутация: 10
По умолчанию

вот коды моих форм:
но они идентичны синтаксически с кодами из вашего исходника.

мои вот:

Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses Unit2;

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Hide;
  Form2.N2 := 196;
  Form2.Show;
end;

end.

Код:
unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
    N2 : Integer;

  end;

var
  Form2: TForm2;

implementation

uses
  Unit1;

{$R *.dfm}

procedure TForm2.FormShow(Sender: TObject);
begin
  Label2.Caption := IntToStr(N2);
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Hide;
  Form1.Show;
end;

end.

просто может надо не только код записать но и произвести какие то операции в свойствах форм и кнопок?
__________________
не переставай удивляться обычному

Последний раз редактировалось roland196, 25.02.2015 в 23:13.
Ответить с цитированием
  #34  
Старый 25.02.2015, 23:14
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Мдя, может это шутки TurboPascal-я? У меня его нет.

Нет, ничего больше делать не требуется.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #35  
Старый 25.02.2015, 23:20
Аватар для roland196
roland196 roland196 вне форума
Прохожий
 
Регистрация: 24.02.2015
Адрес: Литва
Сообщения: 22
Версия Delphi: Turbo Delphi 10
Репутация: 10
По умолчанию

на днях скачал Embarcadero RAD Studio XE7 Architect
сильно такое от Turbo Delphi 10 отличается, стоит устанавливать как посоветуете?

и, строчка procedure FormShow(Sender: TObject); она у меня очень неестественно
вставляется - вообще каким образом она в форме поевляется?
__________________
не переставай удивляться обычному

Последний раз редактировалось roland196, 25.02.2015 в 23:23.
Ответить с цитированием
  #36  
Старый 25.02.2015, 23:23
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Не ставил.

Из вопроса теперь понятно почему не работает.
В свойствах формы (Object Inspector) щёлкаем мышкой по событию OnShow и получаем заготовку:

Код:
procedure TForm2.FormShow(Sender: TObject);
begin
  
end;

её заполняем нужным кодом.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.

Последний раз редактировалось angvelem, 25.02.2015 в 23:26.
Ответить с цитированием
  #37  
Старый 25.02.2015, 23:31
Аватар для roland196
roland196 roland196 вне форума
Прохожий
 
Регистрация: 24.02.2015
Адрес: Литва
Сообщения: 22
Версия Delphi: Turbo Delphi 10
Репутация: 10
По умолчанию

и я не буду. турбо десятка вполне хорошая мне кажется.
я еще вот о чем,

вот ставим в форму бутон или спедбутон, двойной щелчек на бутон
и в форме автоматом поевляется


Код:
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
end;

а вот как поевляется

Код:
procedure FormShow(Sender: TObject);

procedure TForm2.FormShow(Sender: TObject);
begin
end;

???

я то их вписываю вручную, из за этого и говорил што не естественно
__________________
не переставай удивляться обычному
Ответить с цитированием
  #38  
Старый 25.02.2015, 23:34
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Вкладка Events в Object Inspector и выбираете что нужно
Ответить с цитированием
  #39  
Старый 25.02.2015, 23:35
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Я же выше описал и Alegun добавил.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #40  
Старый 25.02.2015, 23:37
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Цитата:
Сообщение от roland196
...я то их вписываю вручную, из за этого и говорил што не естественно
Можно и так конечно, но при этом придётся вручную редактировать dfm, что не рекомендуется без понимания его структуры.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #41  
Старый 25.02.2015, 23:39
Аватар для roland196
roland196 roland196 вне форума
Прохожий
 
Регистрация: 24.02.2015
Адрес: Литва
Сообщения: 22
Версия Delphi: Turbo Delphi 10
Репутация: 10
По умолчанию

нету в Events FormShow
__________________
не переставай удивляться обычному
Ответить с цитированием
  #42  
Старый 25.02.2015, 23:41
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Они там все с приставкой On (OnShow)
Ответить с цитированием
  #43  
Старый 25.02.2015, 23:45
Аватар для roland196
roland196 roland196 вне форума
Прохожий
 
Регистрация: 24.02.2015
Адрес: Литва
Сообщения: 22
Версия Delphi: Turbo Delphi 10
Репутация: 10
По умолчанию

есть Visual - OnShow
это и есть ShowForm ??
__________________
не переставай удивляться обычному
Ответить с цитированием
  #44  
Старый 25.02.2015, 23:45
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Цитата:
Сообщение от roland196
нету в Events FormShow
Ох и не внимательно Сударь вы читаете. Я писал:
>>щёлкаем мышкой по событию OnShow
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #45  
Старый 25.02.2015, 23:50
Аватар для roland196
roland196 roland196 вне форума
Прохожий
 
Регистрация: 24.02.2015
Адрес: Литва
Сообщения: 22
Версия Delphi: Turbo Delphi 10
Репутация: 10
По умолчанию

да Женя, но ладно. у меня все равно значение переменной не передается.
только в вашем исходнике.
я уже подумываю все делать в рамках одной формы, заморока отпала бы..
__________________
не переставай удивляться обычному
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 18:50.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter