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

← →
петр (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]

Вы живете в стране, где всё, что сделано плохо - сделано у вас, а всё, что сделано хорошо - привезено из-за границы. Как думаете - почему так?

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

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

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

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

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

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

Используй Action (List) а к нему подключай тулбары, менюшки и прочин няшки.

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

спасибо

проверить нажата ли кнопка Найти похожие ветки