|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Тогда вот вам пример, что успелось собраться
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#17
|
||||
|
||||
Ох, Alegun. Возьму щётку с мылом и отдраю твой язык. Может тогда твои тексты станут удобочитаемыми.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#18
|
||||
|
||||
спасибо- посмотрел - тоже прогодится
но мне надо именно с SpeedButton (для прозрачного еффекта потом) шлю вам свой вариянт - сделайте во второй форме штоб показали переменную из первой формы вот столько для счастья мне не переставай удивляться обычному
Последний раз редактировалось roland196, 25.02.2015 в 02:33. |
#19
|
||||
|
||||
Вас просили не вкладывать в архив исполняемый файл. Ничего лишнего не нужно, только dpr, pas и dfm.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#20
|
||||
|
||||
да, виноват, компилятор неусмотрел и папку целиком заархивировал.
можете удалять архив. не переставай удивляться обычному
|
#21
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#22
|
||||
|
||||
вот, пример маленький - если не трудно - посмотрите.
не переставай удивляться обычному
|
#23
|
||||
|
||||
Подправил.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#24
|
||||
|
||||
да, вот теперь порядок, именно SpeedButton и переменная во второй форме
завтро буду в свой проект это запихать Спасибо и хорошей вам ночи не переставай удивляться обычному
|
#25
|
||||
|
||||
Offtop: У нас уже утро.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#26
|
||||
|
||||
ну в ообщем не заработало
исходник от 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
|
||||
|
||||
Бросьте ещё одну спидбаттонку на форму и переместите в её обработчик строку про показ в лейбле содержимого переменной из FormShow, заработает?
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#28
|
||||
|
||||
пробую соображать про
переместите в её обработчик строку про показ в лейбле содержимого переменной из FormShow помните вчерашний свисток от чайника? ) вы про это? Код:
Label2.Caption := IntToStr(N2); в какой форме, первой или второй на speedbutton сделать? не переставай удивляться обычному
Последний раз редактировалось roland196, 25.02.2015 в 23:02. |
#29
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#30
|
||||
|
||||
Возможно вы опять пытаетесь сделать это в событии OnCreate Form2, а такое не прокатит.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |