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

← →
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 ©

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

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

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

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

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

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

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

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

boriskb © (05.05.12 21:49) [31]

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

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

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

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

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

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

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

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

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

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

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

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

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

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