Как динамически дать кнопке действие+Нажатая кнопка

@Skmaestro · Регистрация: 14.11.2010

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста
как присвоеть кнопке созданной от tbutton.create
but.Tbutton.create;
but.name...
but.onkeyup:= if key = #02 then showmessage('Вы нажали правой кнопкой на '+selectedbutton);

Кратко чего я хочу
при нажатии на кнопку чтобы оно поставило переменную Б на ту кнопку на которую я нажал пкм

@anonimus · 11.11.2011, 00:16

ты что вообще не знаешь что такое типы данных?
то ты процедурному типу присваиваешь строку, сейчас вообще не понять что

@Arcor · 11.11.2011, 00:28

ему приснилось, как Менделееву таблица, что он написал компилятор, и потом проснулся, и немного забыл чего писал во сне, вот тут пытается затереть те дыры

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

@БогДелфей · 11.11.2011, 00:32

вот приблизительно что я понял

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure OnClickButton(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  Button: TButton;
begin
  Button := TButton.Create(self);
  Button.Parent := Form1;
  Button.Left := 5;
  Button.Top := 5;
  Button.Caption := 'Кнопка';
  Button.OnClick := OnClickButton;
end;
 
procedure TForm1.OnClickButton(Sender: TObject);
begin
  ShowMessage('Я норкоман!!!');
end;
 
end.

@Arcor · 11.11.2011, 00:34

БогДелфей, ты бы хоть правильно писал что ли слово наркоман произошло от слова наркотик

@БогДелфей · 11.11.2011, 00:37

нет, это специально так написано, так называют кодеров, которые могут скАмпЕлировать всё

@Skmaestro · 11.11.2011, 00:39 **[ТС]**

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

@Arcor · 11.11.2011, 00:40

Ладно, давайте перестанем издеваться, давайте подумаем реально как помочь, ему по идее что-то нужно что он не может нормально объяснить, вот мы и понимаем ересь с первого взгляда

@anonimus · 11.11.2011, 00:42

Skmaestro, объекты однотипные? в смысле может быть куча кнопок или не факт?

@Skmaestro · 11.11.2011, 00:45 **[ТС]**

все что нада сделать сдесь

Delphi

procedure TForm1.FormCreate(Sender: TObject);
var
  Button: TButton;
begin
  Button := TButton.Create(self);
  Button.Parent := Form1;
  Button.Left := 5;
  Button.Top := 5;
  Button.Caption := 'Кнопка';
  Button.OnClick := OnClickButton;
end;
 
procedure TForm1.OnClickButton(Sender: TObject);
begin
  ShowMessage('Я нажал на кнопку'+на которую я нажал);
end;

Добавлено через 19 секунд
Только батоны и все

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".

@Arcor · 11.11.2011, 00:49

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    procedure OnMyClick(Sender: TObject);
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  B: Array[1..10] of TButton;
implementation
 
{$R *.dfm}
 
procedure TForm1.OnMyClick(Sender: TObject);
var S: String;
begin
  S := (Sender as TButton).Caption;
  ShowMessage(S);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i := 1 to 10 do
    begin
      B[i] := TButton.Create(Self);
      B[i].Parent := Self;
      B[i].Left := 20;
      B[i].Top := 40*i;
      B[i].Caption := 'Тра-ля-ля '+IntToStr(i);
      B[i].OnClick := OnMyClick;
    end;
end;
 
end.

@Skmaestro · 11.11.2011, 00:52 **[ТС]**

Урааааа
Спасибо то что нада на 90%
осталось 10
это как сделать
s.left:= 100
s.name:= helo)))

@Arcor · 11.11.2011, 00:54

40 и 42 строчка моего кода...

@Skmaestro · 11.11.2011, 01:02 **[ТС]**

ты наверное не так понял( или что-то пошло не так
мне нужно чтобы когда я нажал на 1 кнопку тогда мне написало ее имя и изменило ее лефт на 100 кнопка неизвестная

@БогДелфей · 11.11.2011, 01:12

так что ли

Delphi

1	(Sender as TButton).Left := 100;

@Arcor · 11.11.2011, 01:14

Delphi

procedure TForm1.OnMyClick(Sender: TObject);
var S: String;
begin
  S := (Sender as TButton).Caption;
  ShowMessage(S);
  (Sender as TButton).Left := 100;
  (Sender as TButton).Caption := 'Кнопка неизвестная';
end;

вот переделай процедуру так

@Skmaestro · 11.11.2011, 17:44 **[ТС]**

сделал

Delphi

1	b.OnKeyUp:= ONRIGHTCLICK;

когда создается кнопка
там ошыбка
[Error] Unit1.pas(76): Incompatible types: 'Word' and 'Char'

наверное из за

Delphi

1	procedure ONRIGHTCLICK (Sender: TObject; var Key: Char);

вот код процедуры

Delphi

procedure TForm1.ONRIGHTCLICK(Sender: TObject; var Key: Char);
begin
  if key = '02' then Btn := Sender as TButton;
  //showmessage('this is button'+btn.name);
end;

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

Добавлено через 8 минут
вы двое дали верный ответ спасибо

Комментарий модератора

Skmaestro, не забывай оформлять код соответствующими тегами - это требование правил форума. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	11.11.2011, 00:54	13
	40 и 42 строчка моего кода... 0

@Skmaestro 4 / 4 / 0 Регистрация: 14.11.2010 Сообщений: 341
		1
	Как динамически дать кнопке действие+Нажатая кнопка 11.11.2011, 00:13. Показов 3859. Ответов 16 Метки нет (Все метки) Помогите пожалуйста как присвоеть кнопке созданной от tbutton.create but.Tbutton.create; but.name... but.onkeyup:= if key = #02 then showmessage('Вы нажали правой кнопкой на '+selectedbutton); Кратко чего я хочу при нажатии на кнопку чтобы оно поставило переменную Б на ту кнопку на которую я нажал пкм 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	11.11.2011, 00:16	2
	ты что вообще не знаешь что такое типы данных? то ты процедурному типу присваиваешь строку, сейчас вообще не понять что 1

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	11.11.2011, 00:28	3
	ему приснилось, как Менделееву таблица, что он написал компилятор, и потом проснулся, и немного забыл чего писал во сне, вот тут пытается затереть те дыры у меня тоже такое бывает иногда, то я книги пишу, то задачи сверхсложные математические решаю, а просыпаюсь и помню только начала всего 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	11.11.2011, 00:34	5
	БогДелфей, ты бы хоть правильно писал что ли слово наркоман произошло от слова наркотик 0

@БогДелфей 474 / 337 / 36 Регистрация: 31.05.2011 Сообщений: 1,162
	11.11.2011, 00:37	6
	нет, это специально так написано, так называют кодеров, которые могут скАмпЕлировать всё 0

@Skmaestro 4 / 4 / 0 Регистрация: 14.11.2010 Сообщений: 341
	11.11.2011, 00:39 [ТС]	7
	дайте плиз код который пишет в переменную обьект на которого последней раз кликал имя обьекта не известно их может быть с милиард а переменная 1 и оно записывает только 1 обьект и потом чтоб я смог обьект.destroy..... 0

@Arcor 5705 / 2296 / 466 Регистрация: 20.11.2009 Сообщений: 7,720 Записей в блоге: 1
	11.11.2011, 00:40	8
	Ладно, давайте перестанем издеваться, давайте подумаем реально как помочь, ему по идее что-то нужно что он не может нормально объяснить, вот мы и понимаем ересь с первого взгляда 0

@anonimus 2184 / 1254 / 143 Регистрация: 28.04.2010 Сообщений: 4,592
	11.11.2011, 00:42	9
	Skmaestro, объекты однотипные? в смысле может быть куча кнопок или не факт? 0

@Skmaestro 4 / 4 / 0 Регистрация: 14.11.2010 Сообщений: 341
	11.11.2011, 00:52 [ТС]	12
	Урааааа Спасибо то что нада на 90% осталось 10 это как сделать s.left:= 100 s.name:= helo))) 0

@Skmaestro 4 / 4 / 0 Регистрация: 14.11.2010 Сообщений: 341
	11.11.2011, 01:02 [ТС]	14
	ты наверное не так понял( или что-то пошло не так мне нужно чтобы когда я нажал на 1 кнопку тогда мне написало ее имя и изменило ее лефт на 100 кнопка неизвестная 0