перевірити чи натиснута кнопка
як в процедурі перевірити чи натиснута Button1?
if натиснута Button1 then такі-то дії
if натиснута Button2 then такі-то дії
else такі-то дії
Дякуємо.
а може прямо, а не через анус?
натиснули баттон1 - в обробнику виконали якісь дії.
натиснули баттон2 - в обробнику виконали якісь інші дії.
тим більше, що юзер звик до того, що натиснувши на кнопку, він отримає реакцію на це тільки після того, як кнопка буде відпущена, причому курсор миші в цей час знаходиться над кнопкою.
1. Як ви уявляєте собі процес одночасного натискання мишкою на дві кнопки відразу?
2. Кнопка може бути натиснута тільки в обробнику свого власного події OnClick.
3. Практично будь-який компонент має OnMouseDown і OnMouseUp, де можна виставити соотв. прапори.
TForm1 = class (TForm)
# XA0; # XA0; Button1: TButton;
# XA0; # XA0; Button2: TButton;
# XA0; # XA0; procedure Button1Click (Sender: TObject);
# XA0; # XA0; procedure Button2Click (Sender: TObject);
# XA0; private # XA0; # XA0;
# XA0; # XA0; s: string;
# XA0; # XA0; procedure proc (Sender: TObject);
# XA0; public # XA0; # XA0; # XA0;
# XA0; end;
var
# XA0; Form1: TForm1;
procedure TForm1.Button1Click (Sender: TObject);
begin
# XA0; proc (Sender);
end;
procedure TForm1.Button2Click (Sender: TObject);
begin
# XA0; proc (Sender);
end;
procedure TForm1.proc;
begin
# XA0; if Sender is TButton then
# XA0; # XA0; s: = TButton (Sender) .Name;
# XA0; if s = "Button1" then
# XA0; # XA0; ShowMessage ( "Button1");
# XA0; if s = "Button2" then
# XA0; # XA0; ShowMessage ( "Button2") else
# XA0; # XA0; ShowMessage ( "# 237; # 229; Button2");
end;
зразок, як запитали так і сказав :)
А потім він буде кричати, що йому вже люб'язно надали код, а решта нахабно і не по справі флудять.
Здається мені, що нинішній потік «зовсім початківців» - одне і те ж обличчя.
> # 237; # 229; Button2
А що таке "# 237; # 229;"? Довелося з Веб інтерфейсу запостити.
Швидше за все, це крякозяброграмма слова «не»
> А що таке "# 237; # 229;"?
= "Не"
треба було "not" написати або розкладку перевести :)
Ви живете в країні, де все, що зроблено погано - що сталось між вами, а все, що зроблено добре - привезено з-за кордону. Як думаєте - чому так?
Це проблема всіх неюкодовскіх додатків в венде, бо програмісти не знають / забувають про те, що в буфер обміну разом з текстом потрібно передавати locale identifier. Венда ж, нічого не знаючи про справжню кодуванні тексту, пхає ідентифікатор в залежності від поточної мови введення.
> Як думаєте - чому так?
Тому що деякі (пальцем не буду показувати) лізуть щось робити а) не вміючи цього робити б) не маючи бажання навіть в мінімальному обсязі розібратися в) вважаючи, що все за них повинні знати / вміти інші.
> Як думаєте - чому так
А у них до програмування допускають тільки добре навчених людей
Використовуй Action (List) а до нього підключай тулбари, менюшки і прочину няшки.
Пам'ять: 0.76 MB
Час: 0.029 c