Скачать: CL | DM;

Exception   Найти похожие ветки 

← →
Masa   (2003-12-23 14:56) [0]

Как можно получить имея Exception имя компонента которое вызвало E. Спасибо.

---

← →
Карелин Артем ©   (2003-12-23 14:59) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := AppException;
end;

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
if Sender is TComponent then
ShowMessage((Sender as TComponent).Name);
end;

---

← →
Masa   (2003-12-23 15:11) [2]

procedure TfrmMain.ToolButton4Click(Sender: TObject);
begin
Query1.SQL.Text := "SELECT bla-bla";
Query1.Open;
end;

Показывает имя ToolBar`a.... непонятно чего !?

---

← →
Тимохов ©   (2003-12-23 15:13) [3]

Уважаемый.
Прочти 2 еще раз - скажи можно тут понять о чем ты спрашиваешь?

---

← →
Карелин Артем ©   (2003-12-23 15:13) [4]

Ну такой вот он непонятный. Работает с половиной компонентов.

---

← →
Карелин Артем ©   (2003-12-23 15:14) [5]

Тимохов © (23.12.03 15:13) [3]
Sapienti Sat. Он намекает на известный пример из хелпа.

---

← →
Dimka Maslov ©   (2003-12-23 15:19) [6]

Исключение генерируется не компонентом, и получить "имя компонента которое вызвало E" нельзя. Можно получить лишь имя объекта, в оконной функции которого это исключение было поймано. Именно указатель на этот объект и передаётся в Application.OnException

---

← →
Masa   (2003-12-23 15:23) [7]

Понятно. Спасибо.

---

← →
MV   (2003-12-23 15:50) [8]

Как есть - нельзя :(
В одном из журналов RSDN была статья, обсуждалась проблема и кое-что даже придумали...

---

← →
Vuk ©   (2003-12-23 16:14) [9]

Ну... Если нельзя, но очень хочется, то можно. Нужны лишь генерируемый компилятором map-файл и средства трассировки стека исключений из JCL.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c