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

Delphi Sources



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

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

Тогда вот вам пример, что успелось собраться
Вложения
Тип файла: zip roland196.zip (2.6 Кбайт, 1 просмотров)
Ответить с цитированием
  #17  
Старый 25.02.2015, 01:51
Аватар для 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 в.д.
Ответить с цитированием
  #18  
Старый 25.02.2015, 01:58
Аватар для roland196
roland196 roland196 вне форума
Прохожий
 
Регистрация: 24.02.2015
Адрес: Литва
Сообщения: 22
Версия Delphi: Turbo Delphi 10
Репутация: 10
По умолчанию

спасибо- посмотрел - тоже прогодится
но мне надо именно с SpeedButton (для прозрачного еффекта потом)

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

вот столько для счастья мне
__________________
не переставай удивляться обычному

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

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

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

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

вот, пример маленький - если не трудно - посмотрите.
Вложения
Тип файла: zip spedbutton.zip (10.9 Кбайт, 2 просмотров)
__________________
не переставай удивляться обычному
Ответить с цитированием
  #23  
Старый 25.02.2015, 02:52
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Подправил.
Вложения
Тип файла: rar roland.rar (2.7 Кбайт, 2 просмотров)
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #24  
Старый 25.02.2015, 03:03
Аватар для roland196
roland196 roland196 вне форума
Прохожий
 
Регистрация: 24.02.2015
Адрес: Литва
Сообщения: 22
Версия Delphi: Turbo Delphi 10
Репутация: 10
По умолчанию

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

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

ну в ообщем не заработало
исходник от angvelem - работает - переменная передается.

сделал также = обе формы заполнил идентично с исходником angvelem:


Код:
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.


но у меня переменная из N2 Form1 в Form2 Label2.Caption := IntToStr(N2);
НЕ передается

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

Последний раз редактировалось roland196, 25.02.2015 в 21:57.
Ответить с цитированием
  #27  
Старый 25.02.2015, 22:31
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Бросьте ещё одну спидбаттонку на форму и переместите в её обработчик строку про показ в лейбле содержимого переменной из FormShow, заработает?
Ответить с цитированием
  #28  
Старый 25.02.2015, 22:55
Аватар для roland196
roland196 roland196 вне форума
Прохожий
 
Регистрация: 24.02.2015
Адрес: Литва
Сообщения: 22
Версия Delphi: Turbo Delphi 10
Репутация: 10
По умолчанию

пробую соображать про
переместите в её обработчик строку про показ в лейбле содержимого переменной из FormShow

помните вчерашний свисток от чайника? )

вы про это?

Код:
Label2.Caption := IntToStr(N2);

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

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

Цитата:
Сообщение от roland196
...но у меня переменная из N2 Form1 в Form2 Label2.Caption := IntToStr(N2);
НЕ передается
Она и не передаётся, так как N2 находится в Form2, она присваивается, а затем показывается Form2.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #30  
Старый 25.02.2015, 23:04
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Возможно вы опять пытаетесь сделать это в событии OnCreate Form2, а такое не прокатит.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter