Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

проверить нажата ли кнопка [D7]

петр © (2012-01-25 13:39:00)
как в процедуре проверить нажата ли Button1?
if нажата Button1 then такие-то действия
if нажата Button2 then такие-то действия
else такие-то действия
Спасибо.

AV (2012-01-27 11:02:00) [1]

> Dimka Maslov © (25.01.12 14:19) [14]
> Это проблема всех неюкодовских приложений в венде, ибо программисты
> не знают/забывают о том, что в буфер обмена вместе с текстом
> нужно передавать locale identifier. Венда же, ничего не
> зная об истинной кодировке текста, пихает идентификатор
> в зависимости от текущего языка ввода.

спасибо

Inovet (2012-01-25 14:32:00) [2]
Используй Action (List) а к нему подключай тулбары, менюшки и прочин няшки.

Anatoly Podgoretsky (2012-01-25 14:25:00) [3]

> Как думаете - почему так

А у них до программирования допускают только хорошо обученых людей

Dimka Maslov (2012-01-25 14:21:00) [4]

> Как думаете - почему так?

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

Dimka Maslov (2012-01-25 14:19:00) [5]

> OW © (25.01.12 14:15) [12]

Это проблема всех неюкодовских приложений в венде, ибо программисты не знают/забывают о том, что в буфер обмена вместе с текстом нужно передавать locale identifier. Венда же, ничего не зная об истинной кодировке текста, пихает идентификатор в зависимости от текущего языка ввода.

петр (2012-01-25 14:17:00) [6]
Вы живете в стране, где всё, что сделано плохо - сделано у вас, а всё, что сделано хорошо - привезено из-за границы. Как думаете - почему так?

OW (2012-01-25 14:15:00) [7]

> А что такое "íå"?

= "не"
надо было "not" написать или раскладку перевести :)

кстати, вот что за нафиг с делфи, что пока в редакторе IDE на русский не перейдешь, русские не переносится правильно
Равно как и в проектах.

Dimka Maslov (2012-01-25 14:11:00) [8]

>
> А что такое "íå"?

Скорее всего, это крякозяброграмма слова «не»

Inovet (2012-01-25 14:08:00) [9]

> íå Button2

А что такое "íå"? Пришлось из Веб интерфейса запостить.

Dimka Maslov (2012-01-25 14:06:00) [10]

> Inovet © (25.01.12 14:02) [7]

> OW © (25.01.12 14:02) [8]

Сдаётся мне, что нынешний поток «совсем начинающих» - одно и то же лицо.

OW (2012-01-25 14:02:00) [11]

> Dimka Maslov © (25.01.12 13:53) [6]

да ладно, может и правда, совсем начинающий
помню, когда увидел

> if Sender is

был так шокирован :),
т.к. раньше (на лабах) только и мог подставить код между бегин и энд..
Прямо прорыв эта конструкция внесла, можно сказать. Далее и в наследование повела и проч

Inovet (2012-01-25 14:02:00) [12]
> [3] Dimka Maslov © (25.01.12 13:48)
> 1. Как вы представляете себе процесс одновременного нажатия
> мышкой на две кнопки сразу?

Сейчас выяснится, что надо проверить "была ли нажата" чтобы переводить регистр вводимых символов в верхний или в нижний.

Dimka Maslov (2012-01-25 13:53:00) [13]

> OW © (25.01.12 13:50) [5]

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

OW (2012-01-25 13:50:00) [14]
вроде, как спросили так и сказал :)

OW (2012-01-25 13:49:00) [15]
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;

Dimka Maslov (2012-01-25 13:48:00) [16]
ИздчоЪ один...

1. Как вы представляете себе процесс одновременного нажатия мышкой на две кнопки сразу?

2. Кнопка может быть нажата только в обработчике своего собственного события OnClick.

3. Практически любой компонент имеет OnMouseDown и OnMouseUp, где можно выставить соотв. флаги.

Медвежонок Пятачок (2012-01-25 13:46:00) [17]
тем более, что юзер привык к тому, что нажав на кнопку, он получит реакцию на это только после того, как кнопка будет отпущена, причем курсор мыши в это время находится над кнопкой.

Медвежонок Пятачок (2012-01-25 13:43:00) [18]
а может прямо, а не через анус?

нажали баттон1 - в обработчике выполнили какие-то действия.
нажали баттон2 - в обработчике выполнили какие-то другие действия.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »