Форум: "Прочее";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Вниз

Шуточка от Борланда   Найти похожие ветки 

← →
Чапаев ©   (2006-11-26 13:04) [0]

TCustomListView.TopItem Property
[...]
The TopItem property is read-only.

You can also scroll the view by setting TopItem.

---

← →
Колдун ©   (2006-11-26 13:09) [1]

Много чего еще можно найти

---

← →
Furyz_From_FreeBSD   (2006-11-26 17:04) [2]

baroB MHoro

---

← →
Gydvin ©   (2006-11-26 18:11) [3]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   ComboBox1: TComboBox;
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 combobox1.Clear;
 combobox1.Items.Add("");
 combobox1.Items.Add("1");
end;

end.

При выборе в выпадающем списке пустой строки велетает Access violation at adlress (номер) in module "ntdll.dll". )))
D7

---

← →
Ппп   (2006-11-26 21:11) [4]

хмы, интересно это баг VCL?

---

← →
Ппп   (2006-11-26 21:16) [5]

да похоже на то

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 ComboWnd: HWND;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
ComboWnd:= CreateWindow("COMBOBOX","ComboBox1",WS_VISIBLE or WS_CHILDWINDOW or WS_VSCROLL
or CBS_HASSTRINGS or CBS_AUTOHSCROLL or CBS_DROPDOWN, 10, 10, 150, 150,
Form1.Handle, 0, hInstance, nil);
S:= "";
SendMessage(ComboWnd, CB_ADDSTRING, 0, Longint(PChar(S)));
SendMessage(ComboWnd, CB_ADDSTRING, 0, Longint(PChar(S)));
SendMessage(ComboWnd, CB_ADDSTRING, 0, Longint(PChar(S)));
end;

end.


---

← →
Ппп   (2006-11-26 21:19) [6]

Gydvin ©   (26.11.06 18:11) [3]
procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Items.Add("");
end;

И так эффект тот же. Где баг спрятался поищем?

---

← →
Sergey Masloff   (2006-11-26 21:46) [7]

Gydvin ©   (26.11.06 18:11) [3]
Эта проблема известна с момента выхода D7 и патч к ней на сайте Борланда лет пять уже лежит. Но обсуждения не угасают.

---

← →
Gydvin ©   (2006-11-27 06:59) [8]

> Sergey Masloff   (26.11.06 21:46) [7]

Понятно. Только столкнулся с этим багом

---

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

Форум: "Прочее";
Текущий архив: 2006.12.17;
Скачать: [xml.tar.bz2];

Наверх

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