26.03.2010, 17:08
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
С нами:
9598011
Репутация:
50
|
|
подскажите какой код нужно прописать в OnAktive что бы мой файл помещался в Автозагрузку.
stepashka_ тебе надо в папку Startup или в ключь реестра run?
|
|
|
26.03.2010, 21:07
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
Сообщение от dos999
stepashka_ тебе надо в папку Startup или в ключь реестра run?
в реестр.
Уже сам сделал)
Вот этим кодом
Код:
procedure ChangeReg(StrName: ShortString; delete: boolean);
var
reg: TRegistry;
begin
Reg := nil;
try
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
if not delete then reg.WriteString(StrName, Application.ExeName)
else reg.DeleteValue(StrName);
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
end;
procedure TForm1.AddBtnClick(Sender: TObject);
begin
ChangeReg('My App',false); //добавляем в Автозагрузку
end;
Последний раз редактировалось slesh; 29.03.2010 в 11:04..
Причина: [code][code]
|
|
|
|
26.03.2010, 21:09
|
|
Banned
Регистрация: 14.06.2009
Сообщений: 256
С нами:
8899013
Репутация:
105
|
|
Добрый день, мне очень срочно нужны ответы на пару вопросов...
1) Мне нужно чтобы при на жатии на кнопку на label выводился определенный текст (Это я сделал, не такой уж нуб), Но мне надо чтобы при втором нажатии на эту кнопку появлялся второй текст вместо прежнего, либо как сделать чтобы при нажатии на кнопку выводился текст а потом эта кнопочка удалялась и вместо нее появлялась другая кнопочка при нажатии на которую уже появлялся второй текст
2) Как сделать чтобы при нажатии на кнопку открывалось еще одна форма (окно)
и закрывалось старое.
|
|
|
|
26.03.2010, 21:29
|
|
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
С нами:
8860159
Репутация:
185
|
|
Life7
1) Поиграйся со свойством visible(видимость) т.е. например скрыть кнопку можно так:
Код:
Button1.visible:=false;
2) Создать фому можно так
Код:
Form2:=TForm2.create(self);
Form2.Show;
Закрыть форму одной командой
Но нужно учесть, что при закрытии Главной формы закроется все приложение.
|
|
|
|
26.03.2010, 22:16
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
Life7, вот попробуй, то что ты описал в первом варианте.
в свойствах второй кнопки сделай её невидимой, и расположи их друг на друге.
и при нажатии первой выведется текст1 и кнопка1 скроется, а кнопка2 появится и при её нажатии выведется текст2.
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='текст1';
Button1.Visible:=false;
Button2.Visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
label1.Caption:='текст2';
end;
end.
p.s. ничего тут сложного нет
|
|
|
|
27.03.2010, 13:35
|
|
Познающий
Регистрация: 15.07.2009
Сообщений: 71
С нами:
8854881
Репутация:
35
|
|
Сообщение от heretic1990
Life7, вот попробуй, то что ты описал в первом варианте.
в свойствах второй кнопки сделай её невидимой, и расположи их друг на друге.
и при нажатии первой выведется текст1 и кнопка1 скроется, а кнопка2 появится и при её нажатии выведется текст2.
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='текст1';
Button1.Visible:=false;
Button2.Visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
label1.Caption:='текст2';
end;
end.
p.s. ничего тут сложного нет
Зачем такие извращения, когда можно обойтись одной кнопкой:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
case button1.tag of
0: begin
Label1.Caption:='текст1';
Button1.Tag:=1;
end;
1: begin
Label1.Caption:='текст2';
Button1.Tag:=0;
end;
end;
end;
|
|
|
|
26.03.2010, 22:30
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
1) Мне нужно чтобы при на жатии на кнопку на label выводился определенный текст (Это я сделал, не такой уж нуб), Но мне надо чтобы при втором нажатии на эту кнопку появлялся второй текст вместо прежнего, либо как сделать чтобы при нажатии на кнопку выводился текст а потом эта кнопочка удалялась и вместо нее появлялась другая кнопочка при нажатии на которую уже появлялся второй текст
ну так и используй для этого свойство Button1.Visible:=true или false
2) Как сделать чтобы при нажатии на кнопку открывалось еще одна форма (окно)
и закрывалось старое.
Form1.hide;
Form2.show;
Последний раз редактировалось EndLeSSDre@M; 26.03.2010 в 22:43..
|
|
|
|
27.03.2010, 14:58
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
С нами:
9399011
Репутация:
444
|
|
alexey-m, согласен, но ведь я привёл пример как описал автор вопроса))
|
|
|
|
27.03.2010, 23:55
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
С нами:
8686406
Репутация:
265
|
|
При установке компонента icq выдаёт вот это
[Предупреждение] Unit 'uMD5Hash' implicitly imported into package 'TICQClient'
Кто подскажет?
|
|
|
|
28.03.2010, 14:53
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
С нами:
9030319
Репутация:
34
|
|
Как ставишь?
|
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 6 (пользователей: 0 , гостей: 6)
|
|
|
|
Похожие темы
Комбинированный вид
