Текущий архив: 2002.06.10;
Скачать: CL | DM;

Вниз

Не уживаются три компонента - даю код.   Найти похожие ветки 

← →
Kozerog ©   (2002-05-29 10:41) [0]

Код: после создания поля ввода из PopupMenu изменяем надпись, высоту или ширину кнопки.
Всё ОК. Добавим на форму кнопку - ещё ОК.
Добавим ещё кнопку (или панельку) - RunTime Error. Что такое?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
procedure CreatePoleForVvod(FuncVvod: TNotifyEvent);
procedure ChangeCap(Sender: TObject);
procedure ChangeHg(Sender: TObject);
procedure ChangeWd(Sender: TObject);
procedure Vvod(Sender: TObject; var Key: Word; Shift: TShiftState);
public
{ Public declarations }
end;

var
Form1: TForm1;
PoleForVvod: TEdit;

implementation
{$R *.DFM}

procedure TForm1.CreatePoleForVvod(FuncVvod: TNotifyEvent);
begin
PoleForVvod:=TEdit.Create(Self);
with PoleForVvod do begin
SetBounds(50,30,200,25);
OnExit:=FuncVvod;
OnKeyUp:=Vvod;
Parent:=Self;
SetFocus
end
end;

procedure TForm1.ChangeCap(Sender: TObject);
begin
Button1.Caption:= PoleForVvod.Text
end;

procedure TForm1.ChangeHg(Sender: TObject);
begin
Button1.Height:= StrToInt(PoleForVvod.Text)
end;

procedure TForm1.ChangeWd(Sender: TObject);
begin
Button1.Width:= StrToInt(PoleForVvod.Text)
end;

procedure TForm1.N1Click(Sender: TObject);
begin
CreatePoleForVvod(ChangeCap)
end;

procedure TForm1.N2Click(Sender: TObject);
begin
CreatePoleForVvod(ChangeHg)
end;

procedure TForm1.N3Click(Sender: TObject);
begin
CreatePoleForVvod(ChangeWd)
end;

procedure TForm1.Vvod(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = vk_Return then begin
Button1.SetFocus;
PoleForVvod.Destroy
end
end;

end.

---

← →
Freezer ©   (2002-05-29 10:52) [1]

Хм.. Вообще удивляюсь как это у тебя работает.. )))

Ты обрабатываешь событие в котором уничтожаешь Sender"а!
Это как это?

---

← →
Игорь Шевченко ©   (2002-05-29 11:00) [2]

Sender must die :-)))

Действительно, уничтожать, да еще по Destroy, нехорошо.

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c