Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;



Страницы: 1 2 вся ветка

Форум: "Прочее";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.54 MB
Время: 0.072 c
15-1330664086
CleriC
2012-03-02 08:54
2013.03.22
HotKey в среде Delphi (не могу назначить)


2-1337169674
Дмитрий Белькевич
2012-05-16 16:01
2013.03.22
автоинкрементное поле в TClientDataSet


15-1339412694
NieL
2012-06-11 15:04
2013.03.22
ошибка xml


15-1351367113
заводчанин
2012-10-27 23:45
2013.03.22
CNC Mazatrol


15-1347371239
DevilDevil
2012-09-11 17:47
2013.03.22
Если тебе интересен Lua в Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский