Форум: "Начинающим";
Текущий архив: 2012.06.03;
Скачать: [xml.tar.bz2];
Внизпроверить нажата ли кнопка Найти похожие ветки
← →
петр (2012-01-25 13:39) [0]как в процедуре проверить нажата ли Button1?
if нажата Button1 then такие-то действия
if нажата Button2 then такие-то действия
else такие-то действия
Спасибо.
← →
Медвежонок Пятачок © (2012-01-25 13:43) [1]а может прямо, а не через анус?
нажали баттон1 - в обработчике выполнили какие-то действия.
нажали баттон2 - в обработчике выполнили какие-то другие действия.
← →
Медвежонок Пятачок © (2012-01-25 13:46) [2]тем более, что юзер привык к тому, что нажав на кнопку, он получит реакцию на это только после того, как кнопка будет отпущена, причем курсор мыши в это время находится над кнопкой.
← →
Dimka Maslov © (2012-01-25 13:48) [3]ИздчоЪ один...
1. Как вы представляете себе процесс одновременного нажатия мышкой на две кнопки сразу?
2. Кнопка может быть нажата только в обработчике своего собственного события OnClick.
3. Практически любой компонент имеет OnMouseDown и OnMouseUp, где можно выставить соотв. флаги.
← →
OW © (2012-01-25 13:49) [4]TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private { Private declarations }
s: string;
procedure proc(Sender: TObject);
public { Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
proc(Sender);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
proc(Sender);
end;
procedure TForm1.proc;
begin
if Sender is TButton then
s := TButton(Sender).Name;
if s = "Button1" then
ShowMessage("Button1");
if s = "Button2" then
ShowMessage("Button2") else
ShowMessage("íå Button2");
end;
← →
OW © (2012-01-25 13:50) [5]вроде, как спросили так и сказал :)
← →
Dimka Maslov © (2012-01-25 13:53) [6]
> OW © (25.01.12 13:50) [5]
А потом он будет орать, что ему уже любезно предоставили код, а остальные нагло и не по делу флудят...
← →
Inovet © (2012-01-25 14:02) [7]> [3] Dimka Maslov © (25.01.12 13:48)
> 1. Как вы представляете себе процесс одновременного нажатия
> мышкой на две кнопки сразу?
Сейчас выяснится, что надо проверить "была ли нажата" чтобы переводить регистр вводимых символов в верхний или в нижний.
← →
OW © (2012-01-25 14:02) [8]
> Dimka Maslov © (25.01.12 13:53) [6]
да ладно, может и правда, совсем начинающий
помню, когда увидел
> if Sender is
был так шокирован :),
т.к. раньше (на лабах) только и мог подставить код между бегин и энд..
Прямо прорыв эта конструкция внесла, можно сказать. Далее и в наследование повела и проч
← →
Dimka Maslov © (2012-01-25 14:06) [9]
> Inovet © (25.01.12 14:02) [7]
> OW © (25.01.12 14:02) [8]
Сдаётся мне, что нынешний поток «совсем начинающих» - одно и то же лицо.
← →
Inovet © (2012-01-25 14:08) [10]
> íå Button2
А что такое "íå"? Пришлось из Веб интерфейса запостить.
← →
Dimka Maslov © (2012-01-25 14:11) [11]
>
> А что такое "íå"?
Скорее всего, это крякозяброграмма слова «не»
← →
OW © (2012-01-25 14:15) [12]
> А что такое "íå"?
= "не"
надо было "not" написать или раскладку перевести :)
кстати, вот что за нафиг с делфи, что пока в редакторе IDE на русский не перейдешь, русские не переносится правильно
Равно как и в проектах.
← →
петр (2012-01-25 14:17) [13]Вы живете в стране, где всё, что сделано плохо - сделано у вас, а всё, что сделано хорошо - привезено из-за границы. Как думаете - почему так?
← →
Dimka Maslov © (2012-01-25 14:19) [14]
> OW © (25.01.12 14:15) [12]
Это проблема всех неюкодовских приложений в венде, ибо программисты не знают/забывают о том, что в буфер обмена вместе с текстом нужно передавать locale identifier. Венда же, ничего не зная об истинной кодировке текста, пихает идентификатор в зависимости от текущего языка ввода.
← →
Dimka Maslov © (2012-01-25 14:21) [15]
> Как думаете - почему так?
Потому что некоторые (пальцем не буду показывать) лезут что-то делать а) не умея этого делать б) не имея желания даже в минимальном объёме разобраться в) считая, что всё за них должны знать/уметь другие.
← →
Anatoly Podgoretsky © (2012-01-25 14:25) [16]
> Как думаете - почему так
А у них до программирования допускают только хорошо обученых людей
← →
Inovet © (2012-01-25 14:32) [17]Используй Action (List) а к нему подключай тулбары, менюшки и прочин няшки.
← →
AV © (2012-01-27 11:02) [18]
> Dimka Maslov © (25.01.12 14:19) [14]
> Это проблема всех неюкодовских приложений в венде, ибо программисты
> не знают/забывают о том, что в буфер обмена вместе с текстом
> нужно передавать locale identifier. Венда же, ничего не
> зная об истинной кодировке текста, пихает идентификатор
> в зависимости от текущего языка ввода.
спасибо
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.06.03;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.004 c