У меня маленький вопрос.

← →
Vik © (2012-05-05 18:03) [0]

Как задавать действия для второго и последующих нажатий кнопки?

← →
Медвежонок Пятачок © (2012-05-05 18:05) [1]

а это с начала покупки клавы или с полудня?

← →
Vik © (2012-05-05 18:08) [2]

Ну можно создать кнопку на этом же месте, нажатую кнопку сделать невидимой при нажатии. Это сделать я могу, но хотелось бы, чтоб эта же кнопка при втором нажатии выполняла другое действие. Заранее спасибо (хотя я слабо верю что поможете, после предыдущих моих вопросов).

← →
Vik © (2012-05-05 18:11) [3]

>Медвежонок Пятачок © (05.05.12 18:05) [1]
>а это с начала покупки клавы или с полудня?

Я не понял смысл этого сообщения. Или это смешная шутка была? =)

← →
Медвежонок Пятачок © (2012-05-05 18:12) [4]

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

← →
Anatoly Podgoretsky © (2012-05-05 18:13) [5]

Писать нужно без пися

← →
Медвежонок Пятачок © (2012-05-05 18:13) [6]

Я не понял смысл этого сообщения. Или это смешная шутка была? =)

второе - оно какое "второе" ?
второе с начала суток, с сотворения мира, или с момента когда вику кто-то подарит моск?

← →
Vik © (2012-05-05 18:14) [7]

Спасибо за помощь

← →
Vik © (2012-05-05 18:18) [8]

Ну допустим есть кнопка. При нажатии на нее например в текстовом поле появляется определенный текст. Как сделать так, чтоб при следующем нажатии текст опять изменился на другой?

← →
Медвежонок Пятачок © (2012-05-05 18:18) [9]

вообще арифметике и счету сейчас учат вроде бы даже в детском саду.
подсказка тому, кто туда не ходил : второе - это сразу следующее после перового.

начинаем считать, и когда второй палец уже загнут - это значит наступило второе нажатие. (правда надо понять когда загнут именно второй палец. В общем надо уметь считать. Без этого никак)

← →
MBo © (2012-05-05 18:20) [10]

Как узнать номер нажатия на кнопку, я тебе уже отвечал.
Ну и нафига я это делал?

Ещё одна попытка (ещё метод):
Button.Tag можно использовать, как счетчик нажатий

← →
Медвежонок Пятачок © (2012-05-05 18:20) [11]

Edit1.text := DateTimeToStr(Now);

При каждом нажатии текст опять изменится на другой.

← →
KilkennyCat © (2012-05-05 19:15) [12]

а если цифры нужны, то Random

← →
alexdn © (2012-05-05 19:20) [13]

> Vik © (05.05.12 18:03)
Почему вопроc не в начинающих? Организуй счётчик нажатий кнопки, дальше case x: 1 Edit1.text :=тра та, 2 Edit1.text := тра та та.. это так, как самый простой пример..

← →
Vik © (2012-05-05 19:52) [14]

>Почему вопроc не в начинающих?

Ну меня тут как бы недоначиающим называют=)

Счетчик нажатий кнопки.. не разу не пробовал это делать. Вот сейчас пробовал, пробовал, не получилось

← →
Pavia © (2012-05-05 19:57) [15]

> Почему вопроc не в начинающих?

По тому что с начало надо изучить принцип работы машины Тюринга. Затем прочитать про автомат Мура. Составить автомат. А после запрограммировать.

← →
Inovet © (2012-05-05 20:02) [16]

> [14] Vik © (05.05.12 19:52)
> Вот сейчас пробовал, пробовал, не получилось

Счётчик в локальной переменной (читать, что это значит)? Надо в поле класса (читать, что это значит) или иногда можно в глобальной (читать аналогично первым).

← →
alexdn © (2012-05-05 20:06) [17]

> Vik © (05.05.12 19:52) [14]
x - в глобальные переменные (0 автоматически)
Button1.clik x:=x+1;
case x of
1: Edit1.text :=...;
2: Edit1.text :=..;
...
end;

← →
Медвежонок Пятачок © (2012-05-05 20:06) [18]

тьюринги-шмуринги, муры-шуры......

чувак хочет узнать про второе нажатие, но как-то не догадался что надо как бы считать нажатия. а когда узнал, что считать надо, не смог сосчитать до двух...

фурсенка, привет тебе!

← →
alexdn © (2012-05-05 20:18) [19]

> Медвежонок Пятачок © (05.05.12 20:06) [18]
так это ж ребятёночек, 1996 год рождения, хотя в 16 лет уже можно пытаться мозг включать)..

← →
Jeer © (2012-05-05 20:24) [20]

> хотя в 16 лет уже можно пытаться мозг включать

В 16 лет кое-кто снаряды точил так,что они в цель летели.

← →
Vik © (2012-05-05 20:25) [21]

Я не ребятенок )) И я уже сделал что мне нужно. теперь появилась еще одна проблема.

[code]unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
ButtonsCount: integer;
LastTop: integer;
procedure LoadButtons;
procedure SaveButton(Top: integer);
procedure AddButton;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LoadButtons;
var
ini: TIniFile;
i: integer;
begin
ini:= TIniFile.Create("e:\delphi\q.ini");
ButtonsCount:= ini.ReadInteger("Setup", "ButtonsCount", -1);
if ButtonsCount > -1 then
begin
for i:= 0 to ButtonsCount do
begin
with TButton.Create(form1) do
begin
parent:= Form1;
left:= 10;
LastTop:= ini.ReadInteger("Button" + IntTostr(i), "Top", 0 );
top:= LastTop;
end;
end;
end
else
LastTop:= 100;

ini.Free;
end;

procedure TForm1.SaveButton(Top: integer);
var
ini: TIniFile;
begin
ini:= TIniFile.Create("c:\buttons.ini");
ini.WriteInteger("Setup", "ButtonsCount", ButtonsCount);
ini.WriteInteger("Button" + IntTostr(ButtonsCount), "Top", Top );
ini.Free;
end;

procedure TForm1.AddButton;
begin
with TButton.Create(Self) do
begin
Inc(ButtonsCount);
parent:= Scrollbox1;
left:= 10;
Height:=100;
width:=400;
Inc(LastTop, 150);
top:= LastTop;
SaveButton(top);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AddButton;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
LoadButtons;
end;

end.[/code]

Хочу чтоб сохранялись созданные объекты, и оставались при последующих запусков программы. но как это сделать не знаю.

← →
Styx (2012-05-05 20:28) [22]

> Хочу чтоб сохранялись созданные объекты

Использовать в процедуре сохранения и в процедуре загрузки один и тот же файл?

← →
Медвежонок Пятачок © (2012-05-05 20:29) [23]

начни пожалуй с того, что читай из того ини, в который ты до этого писал.
а не из другого

← →
Vik © (2012-05-05 20:35) [24]

Медвежонок, спасибо!

← →
Vik © (2012-05-05 20:38) [25]

Неа, не сохраняются. Запускаю программу, создаю пару панелей, закрываю. Открываю -пусто =(

← →
alexdn © (2012-05-05 20:53) [26]

Удалено модератором

← →
Vik © (2012-05-05 21:01) [27]

хорошая идея(-_-)

← →
boriskb © (2012-05-05 21:27) [28]

> Vik ©

У тебя какое-нибудь увлечение (кроме программирования) ещё есть?
Какое?

← →
Vik © (2012-05-05 21:36) [29]

Шахматы нравятся. Скейтбордингом занимаюсь, Веб-райтингом. А программированием стал заниматься, потому что учиться пойду на программиста, вот и решил начать учиться прямо сейчас. А какая цель вопроса?

← →
картман © (2012-05-05 21:49) [30]

> А какая цель вопроса?

тут все надеются, что тебе нравятся чистые тротуары

← →
boriskb © (2012-05-05 21:49) [31]

> А какая цель вопроса?

Цель вопроса - показать тебе как выглядит твои вопросы в глазах специалистов.
Я вот в Скейтбординге совсем ничего не понимаю. Слушай:

Как на этой штуке скатиться с лестници и не упасть (я слышал это можно сделать) Я пробовал - ничего не получается.

← →
alexdn © (2012-05-05 21:51) [32]

Удалено модератором

← →
Vik © (2012-05-05 21:53) [33]

boriskb © (05.05.12 21:49) [31]

Ну вот. Вы это спрашиваете, потому что не знаете как это сделать. Поэтому же и я спрашиваю. Ну я же не абсолютный 0, спрашиваю для того, чтоб уметь больше.

← →
Vik © (2012-05-05 21:54) [34]

Удалено модератором

← →
boriskb © (2012-05-05 21:58) [35]

> Vik © (05.05.12 21:53) [33]

Так ты объясни. А то отвечаешь так-же как и здесь тебе.
Ты скажешь - "Надо сначала научиться устойчиво стоять на месте и уверено двигаться по гладкой поверхности"
Я проигнорирую совет. Ты же не ответил на ворос как быть с летсницей?

← →
Vik © (2012-05-05 22:09) [36]

По лестницам съезжать можно. на быстрой скорости поднять переднюю часть сб (скейтборда), подъезжая к концу лестниц резко опустить переднюю часть, переводя вес вперед. А вообще съезжать с лестниц- это некрасиво, не эффектно выглядит.

← →
Dennis I. Komarov © (2012-05-05 23:23) [37]

> По лестницам съезжать можно. на быстрой скорости поднять
> переднюю часть сб (скейтборда), подъезжая к концу лестниц
> резко опустить переднюю часть, переводя вес вперед. А вообще
> съезжать с лестниц- это некрасиво, не эффектно выглядит.

Фигня какая, не надо думать что тут никто не видел борд, ты "код" давай...

← →
Медвежонок Пятачок © (2012-05-05 23:46) [38]

Неа, не сохраняются.

а может не восстанавливаются?
(хотя какая разница, для тебя же это одно и тоже)

← →
Плохиш © (2012-05-06 01:57) [39]

Надо сохранять все те объекты, которые создавал. А в приведëнном коде разные файлы - это самый меньший бред.

PS. Я не понял, какая часть у скебода является передней.

← →
TStas (2012-05-06 02:08) [40]

Я бы в теге кнопки сохранял номер нажатия.
Button1.Tag := Button1.Tag + 1;
Case Button1.Tag of
1: //Для первого нажатия
2: //Для второго нажатия
//ну и т. д.
End;

← →
Юрий Зотов © (2012-05-06 03:31) [41]

> TStas (06.05.12 02:08) [40]
> Я бы в теге кнопки сохранял номер нажатия.
> Button1.Tag := Button1.Tag + 1;
> Case Button1.Tag of
> 1: //Для первого нажатия
> 2: //Для второго нажатия
> //ну и т. д.

Это сколько же таких "и т.д." писать придется?
if Odd(Button1.Tag) then ... else ...

← →
Чайник © (2012-05-06 09:16) [42]

INI-файл - обычный текстовый файл. Открой в блокноте и посмотри, что там пишет процедура SaveButton (кстати, а когда и где она вызывается?).

← →
boriskb © (2012-05-06 10:18) [43]

> Vik © (05.05.12 22:09) [36]
> По лестницам съезжать можно. на быстрой скорости ....

Я думаю, ты сам понял, что такие советы явно не годятся человеку с моей квалификацией?

Какая быстрая скорость?
Чего поднять, чего опустить?
Я на нем если и устою на месте, то с трудом.

← →
boriskb © (2012-05-06 10:26) [44]

Короче (чтоб не разводить...)
Мне кажется уже понятно, что некоторые вещи требуют предварительной подготовки.
И чем серьёзнее ты к предмету относишься, тем более серъёзная и глубококая подготовка (обучение) требуется.
Иначе точно на лесенке голову свернешь :))

← →
Интересующийся (2012-05-06 20:26) [45]

> [45] Интересующийся (06.05.12 20:26)
> Тебе когда-нибудь по яйцам скейтбордом попадало?

Надо защитный бронежилет надевать.

> KilkennyCat © (06.05.12 20:32) [46]

Да, да. Этот вопрос одним из первых себе надо бы задать :))

Но не в его возрасте. В это время чем за большее хватаешься, чем больше пробуешь - тем лучше.
Только надо отчет себе отдавать что наскоком, на УРА не все проблемы решаются.

Нет, по яйцам не попадало!

Я наскоком проблемы не рашаю)))

мне бы такие проблемы... за два дня сумел написать полезных всего две строчки. и те ща сотру - избыточность функционала.

Очень сложно что-ли? Поделись что за проект? =) Интересно

> Inovet (06.05.2012 20:33:47) [47]

>> Тебе когда-нибудь по яйцам скейтбордом попадало?

> Надо защитный бронежилет надевать.

Да тут бронетрусы нужны

> [53] Anatoly Podgoretsky © (06.05.12 21:50)
> Да тут бронетрусы нужны

Бронированный скафандр спасёт от всех (на)падений.

> Inovet © (06.05.12 21:56) [54]

а я-то думал, что их в своей проге написал... значит, код - полное г... начнем проект с нуля. вот тока киношку посмотрю.

> [56] KilkennyCat © (06.05.12 22:20)
> а я-то думал, что их в своей проге написал...

Это условие не исключает модерирования.

Вспомнилось :)

- как узнать, какое значение принимает кнопка на клавиатуре? - сначала нажатое, потом отжатое.

>БарЛог © (08.05.12 07:58) [58]
>- как узнать, какое значение принимает кнопка на клавиатуре?
>- сначала нажатое, потом отжатое.

Дафихтам, у меня клава была еще недавно отнситлно, у нее треть кнопок как нажались в последний раз еще при демократах, так до сей поры и пребывают нажатыми (кофе, пиво с воблой, водка с салом и чесночком, огурчики соленые и т.д. - клава моя любительница была пожрать)

Удалено модератором

← →
БарЛог_ (2012-05-08 16:18) [62]

Удалено модератором

← →
Интересующийся (2012-05-08 18:19) [63]

Удалено модератором

У меня маленький вопрос. Найти похожие ветки